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ÉDRTM rune rade etn les À LAS e nee en 


INITIATION 
BR LA SECTION DES 1 ICHIERS SEGQUENTIELS 


per Aacre CHERAMY 


Système: TURBO-Forth 83-Stendard 
hidaptabilité: fortement dépendant de TF3 et MSD0S 
Diffusion: moduie Hü ut téléchargement 3615 GAtix ED I 


TURGO F 83 


Vous trouverez, &i joint, UN pPUGT GATE 


\ QFILES.FTH 
\ 
\ 


pour  TURBO-Forth 


EEE EEE EEE EEE EEE EEE EEE EEE EEE 


Voir explications générales après EOF. 


\ QFILES.FTH par André Chéramy. 
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d'initiation à La gestion des fichiers séquentiels sous 


TUREG F8%. Ce programme propose une quarantaine de mots 
permettant d'ouvrir, Lire, écrire, remplacer, copier, 
cumper, ajouter, translater, etc... 


actuellement, Ce programme #st 
pour être publié dans JEDI. Je vuus 
les mots qui ne vous semblerünt 
pas de ta haute programmation, 
mais cela m'a été utile pour adapter d'anciens fichiers de 
références bibtiograshiques constitues sous RT1i CHED dé 
DEC) à un nouveau Logiciel sous MS-00S (Framework II). 


Tel qu'il se présente 
peut-éire un peu Lorg 

Laisse Le scan G'eliminer 
pas nécessaires. €e n'est 


\ Mots complémentaires pour gérer des fichiers en accés séQuentiel. 


ECHO OFF 
VARIABLE  HANDLE-Q 
2VARIABLE S12E 


2VARIABLE POS 


: BUFFER-Q € --- adr ) 
-1024 LBUF 
HANDLE -Q @ 
l+ + - ; 

: LINE#-Q € --- adr ) 


BUFFER-Q 1+ C/L + ; 


: PATHNAME-Q ( --- adr ) 
LINE#-Q 2+ ; 


: ?FILE-Q C---) 
HANDLE -Q @ O= 
#FILES O= OR 


mémorise le ticket du fichier séquentiel 
longueur du fichier séquentiel 
position du pointeur du fichiers séquentiel 


\ 

\ 

\ 

\ comme BUFFER mais pour le fichier séquentiel 

\ ne pas oublier d'utiliser COUNT pour 

\ transformer cette adresse implicite en adresse 
\ explicite € adr --- adr+1 | ) lorsque l'on 

\ veut référer au buffer comme à une chaine 
\ 
\ 
\ 
\ 
\ 
\ 


comme LINE# mais pour le fichier séquentiel 
adresse de BUFFER-Q + 1 + 255 


adresse du path/filename du fichier séquentiel 
situé 2 octets plus loin dans BUFFER-Q 


vérifie qu'un fichier séquentiel est ouvert 
ticket du fichier séquentiel non nul 
ou tous fichiers fermés par erreur système 


ABORT" pas de fichier ouvert en accès séquentiel" ; 


place le pointeur fichier à la position indiquée 


teste si position indiquée est < O ou > 2147483647 


teste si > taille actuelle (limitée à 2147483647) 


calcule et sauve la valeur du pointeur de position 


: TOPOS € 2pos --- ) \ 
?FILE-Q \ vérifie qu'un fichier séquentiel est ouvert 
2 ?ENOUGH \ assure qu'au moins 2 cellules sont sur pile 
2DUP 0 O D< \ 
1F 2DROP O O THEN \ si oui remplace par position O0 
2DUP SIZE 26 D> \ 
IF 2DROP SIZE 26 THEN \ si c'est le cas remplace par taille 
HANDLE-Q @ O (SEEK) \ par déplacement à partir du début 
?D0S -ERR \ teste si opération réussie 
POS 2! ; \ sauve nouvelle position (sur 82 bits) 
?POS C--- D 
?FILE-Q \ vérifie qu'un fichier séquentiel est ouvert 
0 0 \ déplacement à éffectuer nul 
HANDLE -Q @ 1 (SEEK) \ retourne la valeur du pointeur sans déplacer 
200$ -ERR \ teste si opération réussie 
POS 21 ; \ sauve nouvelle position (sur 32 bits) 
?SI2E € --- ) \ calcule la longueur du fichier séquentiel 
?POS \ sauve la position actuelle du pointeur 
O0 O HANDLE-Q @ 2 \ calcule la longeur du fichier 
(SEEK)  ?DOS -ERR \ puis teste si opération réussie 
SIZE 2! \ sauve la longueur du fichier 
POS 2@ TOPOS ; \ restaure la position antérieure du pointeur 
?EOF -Q C --- f1 ) \ indique si la fin du fichier est atteinte 
?S1ZE \ calcule et sauve SIZE et POS 
SIZE 26 POS 26 D= ; \ si identique flag fin de fichier est vrai 

: POS+ € --- } \ incrémente le pointeur du fichier séquentiel 
?2POS POS 26 \ calcule et empile la position actuelle 
1 0 D+ \ incrémente 
TOPOS ; \ place le pointeur fichier à la position indiquée 
POS - (€ --- } \ décrémente le pointeur du fichier séquentiel 
?POS POS 26 \ calcule et empile la position actuelle 
1 O D- \ décrémente 
TOPOS ; \ place le pointeur fichier à la position indiquée 
REWIND {€ --- ) \ positionne le pointeur au début du fichier 
O O TOPOS \ position à atteindre (nombre d'octets 32 bits) 
LINE#-Q OFF ; \ remise à zéro du No de ligne 
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: TOEND Casse.) 


?FILE-Q 

0 0 
HANDLE-Q @ 
2 (SEEK) 
?D0S -ERR 
POS 2! ; 


: CLOSE-Q (EE 
HANDLE-Q @ 0= #FILES 


O= OR IF EXIT THEN 
HANDLE-Q DUP 
@ (CLOSE) OFF ; 


ee tt ee et 


positionne le pointeur en fin de fichier 

vérifie qu'un fichier séquentiel est ouvert 
déplacement à effectuer (nombre d'octets 32 bits) 
ticket du fichier séquentiel 

déplace pointeur à partir de la fin 

teste si opération réussie 

sauve la position du pointeur (sur 32 bits) 


ferme le fichier en accès séquentiel 

vérifie qu’un fichier séquentiel est ouvert 
si ce n'est pas le cas quitte sans rien faire 
variable contenant le ticket du fichier 

ferme fichier et RAZ du ticket 


HEX CODE (USING) \ emprunté à Michel Zupan détermine l'attribut d'un fichier 
DX POP CX POP 4301 # AX MOV 21 INT U>= IF O # AX MOV THEN 1PUSH END-CODE 
DECIMAL \ O = ouverture lecture + écriture 1 = ouverture lecture seule) 


: OPEN-Q C--- D \ 


CLOSE -Q 
?OPEN 

PATHWAY 

DUP O (SEARCHO) 
IF O OVER (USING) 


?D0S -ERR 2 (OPEN) 


ELSE O (CREATE) 
THEN ?D0S-ERR 
DUP HANDLE-Q ! 

0 O ROT 2 (SEEK) 
2D0S -ERR 

SIZE 21 

HERE COUNT 
PATHNAME-Q DUP 
C/PATH BLANK 
SWAP_ CMOVE 
REWIND ; 


. LINE-Q CO --- 


CR BUFFER-Q COUNT 
-TRAILING TYPE ; 


. LINE#-Q C ==. 


© LINE#-Q © . : 


: . PATHNAME -Q Frise 


PATHNAME-Q C/PATH 
-TRAILING TYPE ; 


: POS C--- 


POS 26 UD. ; 


. SIZE C--- 


SIZE 20 UD. : 


: PUT-$ C adr | -- 


?FILE-Q 

2 ?ENOUGH 
DSEGMENT -ROT 
HANDLE -Q @ 
(PUT) ?D0S -ERR 
DROP ?SI2E 
?POS ; 


) 


PUT-C C Qi mue 


?FILE-Q 
1 ?ENOUGH 


BUFFER -Q 1 OVER | 


1+ ! 

DSEGMENT 
BUFFER-Q COUNT 
HANDLE-Q @ 
(PUT) ?D0S -ERR 
DROP ?S12E 
?POS ; 


PUT-L Ç adr 1 -- ) 


PUT-$ 
13 PUT-C 10 PUT-C 


APPEND-$ € adr | -- ) 


TOEND PUT-$ ; 


APPEND-C Co ---) 


TOEND PUT-C ; 


APPEND-L € adr 1 
TOEND PUT-L ; 


) 


ee ct 


TT TS ét te 


ouvre ou crée le fichier séquentiel dont le 
path\filename suit, sans ajouter EXTS$ 
fermeture éventuelle si un autre déjà ouvert 
assure qu'un fichier suppl. peut être ouvert 
codifie le path\filename sans ajouter EXT$ 
cherche le fichier indiqué dans le répertoire 
si existe autorise ouverture en lecture + écriture 
si ok ouvre en lecture + écriture 

sinon en crée un nouveau en écriture 

teste si opération réussie 

copie et sauve ticket du fichier ouvert 
calcule la longeur du fichier 

teste si opération réussie 

sauve la longueur du fichier 

empile adr et | du path/filename indiqué 
empile et duplique adr de destination 

RAZ tampon du path/filename 

transfère chaine path/filename 

repositionne pointeur et LINE#-Q 


affiche ligne courante présente dans BUFFER-Q 
conversion chaine implicite en chaine explicite 
et affichage 


affiche le No de ligne courante présent dans le 
buffer du fichier séquentiel 


affiche le path/filename du fichier séquentiel 
adr et 1max du tampon de path/filename 
affichage de la chaine proprement dite 


affiche la valeur du pointeur de position 
du fichier séquentiel 


affiche la longueur du fichier séquentiel 
valeur maxi 2147483647 (voir TOPOS) 


la chaine explicite indiquée sera écrite dans Île 
fichier à la position indiquée par le pointeur 
teste si fichier séquentiel ouvert 

assure qu’au moins 2 cellules sont sur pile 
place la valeur du segment en 3ème position 
empile le ticket du fichier 

écrit et teste si opération réussie 

mise à jour de SIZE, longueur du fichier 

mise à jour de POS, position du pointeur 


le caractère indiqué sera écrit dans le fichier 
séquentiel à la position indiquée par le pointeur 
teste si fichier séquentiel ouvert 

assure qu’au moins 1 cellule est présente sur pile 
place 1 en début de buffer (longueur) 

incrémente adresse et y place l'octet 

empile la valeur du segment puis 

adresse et longueur de chaine (1 caractère) 
empile le ticket du fichier séquentiel 

écrit et teste si opération réussie 

mise à jour de SIZE, longueur du fichier 

mise à jour de POS, position du pointeur 


la chaine explicite indiquée sera écrite dans 
le fichier séquentiel ainsi que CR et LF à la 
position indiquée par le pointeur 


teste si fichier séquentiel est ouvert, positionne 
pointeur à la fin et ajoute la chaine indiquée 


teste si fichier séquentiel est ouvert, positionne 
pointeur à la fin et ajoute le caractère indiqué 


ajoute la chaine explicite indiquée ainsi que 
CR et LF à la fin du fichier séquentie]) 


= 
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: GETLINE-Q 322 
2EOF-Q IF EXIT THEN 
BUFFER -Q 
HANDLE-Q @ (GETLINE) 
DROP 
LINE#-Q 1+! ECHO © 
IF .LINE-Q THEN 
2POS  ; 


: SKIP-Q Cn---) 


?FILE-Q 
1 ?ENOUGH 
DUP 0O= 
IF DROP EXIT THEN 
ECHO @ >R ECHO OFF 
0 DO 

?EOF -Q 

IF LEAVE 


ELSE GETLINE-Q THEN 


LOOP 
R> ECHO | ; 


: TOLINE Cn---) 


1 ?ENOUGH 

DUP 0= 

IF DROP EXIT THEN 
REWIND 

1- SKIP-Q ; 


: <--L C---) 


LINE#-Q @ TOLINE ; 


: L--> C---) 


1 SKIP-Q ; 


REPLACE-L € adr | n -- 


?FILE-Q 
8 ?ENOUGH 
OVER 0= 


} 


1F 2DROP DROP EXIT THEN 


REWIND 

DUP SKIP-Q 

LINE#-Q @ 

IF APPEND-L EXIT THEN 
BUFFER-Q C@ 1- 

2DUP SWAP - >R 

MIN 

<--L PUT-$ 

R> DUP O> 

1F O DO 32 PUT-C LOOP 
THEN ; 


: GET-L € adr ] --) 


?FILE-Q 
2 ?ENOUGH 


\ 
\ 
\ 


saisit une ligne dans le fichier séquentiel 

teste si fin de fichier déjà atteinte 

empile adr du fichier sêquentiel puis transfère 
tous les caractères jusqu'à CR vers BUFFER-Q 
élimine le flag généré par (GETLINE) pour EOF? 
incrémente le numéro de ligne courante, teste ECHO 
si ECHO ON affiche la ligne 

met à jour le pointeur utilisateur 


saute n lignes dans le fichier ( n>0 ) 


teste si fichier séquentiel ouvert 

assure qu’au moins 1 cellule est présente sur pile 
teste si n est nul 

si oui sort sans rien sauter 

empile l'état de ECHO avant invalidation 
tente d'effectuer n sauts de ligne 

teste d'ahord si fin de fichier 

si oui quitte boucle sans rien sauter 

si non transfert une ligne dans buffer 
sort si n transferts ou si fin de fichier 
restaure la valeur initiale de echo 


positionne au début de ligne No n € n>0 ) 

assure qu'au moins 1 cellule est présente sur pile 
teste si n est nul 

si oui sort sans rien faire 

remise à zéro du pointeur et de LINE#-Q 

début = ligne O pour LINE#-Q mais 1 pour TOLINE 


positionne le pointeur au début ligne précédente 
n'est valable que si LINE#-Q est à jour 


positionne le pointeur au début de ligne suivante 
simple non? 


\ remplacement sécurisé de la ligne n (n positif) 
\ teste si fichier séquentiel ouvert 

\ assure qu'au moins 8 cellules sont sur la pile 
\ teste longueur de la chaine 

\ chaine vide interdite 

\ remise à zéro du No de ligne et du pointeur 

\ dupiique No et écrit ligne cible dans buffer 

\ compare No ligne cible et No ligne trouvée 

\ si fichier trop court, ajoute ligne à la fin 

\ cherche longueur de la ligne cible 

\ sauve différence longueur cible longueur source 
\ longueur transférable sans écrasement 

\ écrit chaine au début de ligne précédente 

\ récupère et teste diff long cible long source 
\ si cible > source complète avec espaces 


s 


affecte ligne du fichier séquentiel à une chaine 
teste si fichier séquentiel ouvert 
assure qu'au moins 2 cellules sont sur pile 


?EOF-Q IF 2DROP EXIT THEN \ teste si fin de fichier déjà atteinte 


2DUP BLANK 

1 SKIP-Q 
BUFFER-Q COUNT 
2SWAP 

ROT 

MIN 

MOVE ; 


: GET-$ Ç adr | --- 


2 ?ENOUGH 

?E0F-Q 1F 2DROP EXIT 
THEN 2DUP BLANK 
DSEGMENT -ROT 


HANDLE-Q @ 
(GET) ?DO0S-ERR DROP 
2POS ; 


: GET-C (€ --- 0 


DSEGMENT BUFFER-Q 1+ 
1 HANDLE-Q @ 

(GET) ?D0S-ERR DROP : 
BUFFER-Q 1+ C@ 

?POS  ; 


: EOF-Q Case 
\ 26 PUT-C 

BUFFER-Q 0 

PUT-$ ; 


: TOSIZE ( 2len --- 
?9FILE-Q 
2 ?ENOUGH 
?POS POS 28 >R >R 
2DUP O0 O D< 
IF 2DROP EXIT THEN 


VA Ten! nef. déc 


) 


) 


?E0F-Q IF 26 EXIT THEN 


) 


) 


D 


\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 


\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 


remplit d'espaces la chaine explicite indiquée 
transfert d'une ligne vers BUFFER-Q sans echo 
adresse explicite de cette ligne dans BUFFER-Q 


(adr2 12 adri 11 --- adri 11 adr2 12) 
(adr1 Hi adr2 12 --- adr1i adr2 12 11) 
(adri adr2 12 11 --- adri adr2 imin) 


tranfert (partiel si place insuffisante) 


lit 1 caractères dans le fichier à partir du 
pointeur et les copie dans la chaine indiquée 
assure qu’au moins 2 cellules sont sur pile 
teste si fin de fichier déjà atteinte 

remplit d'espaces la chaine explicite indiquée 
place la valeur du segment en 3ème position 


ticket du fichier séquentiel 
lit la chaine et teste si opération réussie 
mise à jour de POS, position du pointeur 


iit le caractère situé au pointeur du fichier 
séquentiel, teste si fichier séquentiel ouvert 
si fin de fichier retourne °Z 

empile valeur du segment, adresse reelle buffer, 
longueur de chaine (1 car) et ticket du fichier 
lit le caractère et teste si opération réussie 
adresse réelle de chaine implicite 

mise à jour de POS, position du pointeur 

force fin du fichier à la position pointeur 
facultatif, écrit un °Z à position courante 
chaine quelconque mais de longueur nulle 

écrit chaine vide à la position courante 


augmente taille fichier jusqu’à la valeur indiquée 
vérifie qu'un fichier séquentiel est ouvert 

assure qu'au moins 2 cellules sont sur pile 

sauve la position actuelle du pointeur 

teste si valeur indiquée est < O0 ou > 2147483647 
si oui garde la taille actuelle 


SIZE 2@ DMAX : \ nouvelle taille > où = taille précédente 
HANDLE-Q @ O (SEEK) \ envoie le pointeur à la nouvelle fin de fichier 
?D0S -ERR 2DROP \ teste si opération réussie 
EOF -Q \ seul (PUT) valide la taille, écrit chaine vide 
R> R> TOPOS ; \ restaure la position antérieure du pointeur 
HEX 
: DUMP -Q € --- } \ affiche le contenu hexa et ascii du fichier dont 
OPEN-Q CR HEX \ le "path\filename" suit 
BEGIN \ après ouverture, commence une boucle 
?EOF-Q IF CLOSE-Q \ est-ce la fin du fichier? si oui ferme, 
DECIMAL EXIT THEN \ restaure mode décimal et quitte 
DSEGMENT BUFFER-Q 1+ \ valeurs du segment, du début réel du buffer, du 
10 HANDLE-Q @ (GET) \ nombre de caractères à lire, du ticket et on lit 
?D00S-ERR BUFFER-Q 1+ \ ( len --- len adr } chaine lue 
SWAP BOUNDS 2DUP \ adresses de début et de fin de chaine 
4 SPACES \ marge gauche du tableau affiché 
?2D0 1 C@ O <# # # #> \ scrute un à un les caractères lus et les 
TYPE SPACE \ convertit en chaine hexa sur deux digits 
LOOP \ caractère suivant jusqu'a adresse de fin 
88 #OUT @ - SPACES \ aligne affichage pour les ascii sur 56ème colonne 
?D0 I C@ DUP 20 < \ boucle analogue, scrute caractères un à un 
IF DROP 20 THEN  \ si CTRL remplace par un espace (car les CTRL 
EMIT \ perturbent l'affichage) puis affiche 
LOOP CR STOP? \ l'adresse de fin a été atteinte, on arrête? 
UNTIL CLOSE-Q DECIMAL ; \ fermeture fichier et retour mode décimal 
DECIMAL 
: SUM-Q C--- S ) retourne la check-Qum du fichier dont le 
OPEN-Q O “path\filename" suit, après avoir ouvert Île 
BEGIN fichier, initialise une somme nulle sur pile 


\ 
\ 
\ 
?EOF -Q \ teste si fin de fichier atteinte 
IF CLOSE-Q EXIT THEN \ si oui ferme et quitte avec somme sur la pile 
DSEGMENT BUFFER-Q 1+ \ segment et adresse où le caractère lu sera mis 
1 HANDLE-Q @ (GET) \ 1 caractère à lire, ticket du fichier, lecture 
?D0S -ERR DROP \ opération réussie? élimine N = 1 caractère lu 
\ 
\ 
\ 


BUFFER-Q 1+ C@ + 
STOP? 
UNTIL CLOSE-Q ; 


empile caractère lu, ajoute à somme précédente 
c'est trop long? on arrète? 
si oui ferme le fichier 


\ Les mots suivants, précédés de la lettre 1 concernent un fichier séquentiel 
\ en lecture seule (I comme Input ou Inspect). Chacun d'entre eux est analo- 
\ gue au mot correspondant défini précédemment pour le fichier séquentiel en 
\ lecture + écriture (sauf mention spéciale). Ces mots permettent notamment 
\ des transferts entre fichiers (copie, conversion etc..,). 
VARIABLE  IHANDLE-Q 
2VARIABLE ISIZE 
2VARIABLE IPOS 

IBUFFER-Q -1024 LBUF IHANDLE-Q @ 1+ * - ; 


1?FILE-Q IHANDLE -Q @ O= #FILES O= OR 
ABORT" pas de fichier séquentiel ouvert en lecture seule" ; 


ITOPOS I?FILE-Q 2 ?ENOUGH 2DUP O O D< IF 2DROP O O THEN 2DUP ISIZE 20 D> 
IF 20ROP ISIZE 2@ THEN IHANDLE-Q @ GO (SEEK) ?DOS-ERR IPOS 2! ; 


1?POS 1?FILE-Q O O IHANDLE-Q @ 1 (SEEK) ?DOS-ERR IPOS 21 ; 

F9SIZE 1?POS O O IHANDLE-Q @ 2 (SEEK) ?DOS-ERR ISIZE 2! IPOS 26 ITOPOS ; 
1?EO0F-Q 1?SIZE ISIZE 2@ IPOS 2@ D= ; 

IREWIND O O ITOPOS ; | attention simplifié 


ICLOSE-Q IHANDLE-Q @ O= #FILES O= OR 
IF EXIT THEN IHANDLE-Q DUP @ (CLOSE) OFF ; 


: JOPEN-Q ICLOSE-Q ?OPEN PATHWAY DUP O (SEARCHO) IF 1 OVER (USING) ?DOS-ERR 
O COPEN) ELSE DROP EXIT THEN ?DOS-ERR DUP IHANDLE-Q ! O O ROT 2 (SEEK) 
?D0S -ERR ISIZE 21 IREWIND ; | attention simplifié voir OPEN-Q 
1.LINE-Q CR IBUFFER-Q COUNT -TRAILING TYPE ; 


: IGETLINE-Q 1?7E0F-Q IF EXIT THEN IBUFFER-Q IHANDLE-Q @ (GETLINE) 
DROP ECHO @ IF I.LINE-Q THEN 1?POS ; | attention simplifié cf GETLINE-Q 


ï ISKIP-Q 1?FILE-Q 1 ?ENOUGH DUP O= IF DROP EXIT THEN ECHO @ >R ECHO OFF 
O DO 17E0F-Q IF LEAVE ELSE IGETLINE-Q THEN LOOP R> ECHO t ; 


ITOLINE 1 ?ENOUGH DUP O= IF DROP EXIT THEN IREWIND 1- ISKIP-Q ; 


IGET-L 1?FILE-Q 2 ?ENOUGH 1?E0F-Q IF 2DROP EXIT THEN 2DUP BLANK 1 ISKIP-Q 
IBUFFER-Q COUNT 2SWAP ROT MIN MOVE ; 


IGET-$ 2 ?ENOUGH 1?2E0F-Q IF 2DROP EXIT THEN 2DUP BLANK DSEGMENT -ROT 
IHANDLE-Q @ (GET) ?DOS-ERR DROP I?POS ; 


IGET-C 17E0F-Q IF 26 EXIT THEN DSEGMENT IBUFFER-Q 1+ 1 IHANDLE-Q @ 
(GET) ?DOS-ERR DROP IBUFFER-Q 1+ C@ I?POS ; 


\ Les mots suivants sont des exemples d'applications 
\ (conversion, translation... tout est possible!) 


s 
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126 


EOF \ 


+: FRUS { --- ) \ conversion ascii IS025 (FRançais) en ascii IBM-US 
\ syntaxe: FRUS filename-source filename-cible 
IOPEN-Q \ ouvre fichier source dont le “path\ filename" suit 
OPEN-Q \ crée fichier cible dont le “path\filename" suit 
BEGIN IGET-C \ boucle de saisie des caractères un à un 
CASE \ examine le caractère lu 
94 OF 94 PUT-C IGET-C | si * on l'écrit et on lit caractère suivant (N°2) 
CASE \ examine le N°2 
8 OF 8 PUT-C IGET-C | si BS on l'écrit et lit caractère suivant (N°3) 
CASE \ examine le N°3 
97 OF POS- POS- 131 ENDOF \ si a on remplace * et BS par à 
101 OF POS- POS- 136 ENDOF | si e ê 
105 OF POS- POS- 140 ENDOF \si i î 
111 OF POS- POS- 147 ENDOF \ si o ô 
117 OF POS- POS- 150 ENDOF \ si u û 


DUP ENDCASE \ si rien trouvé pour le N°3 on le laisse tel quel 
DUP ENDCASE ENDOF | si le N°2 pas BS on le laisse tel quel 
OF 126 PUT-C IGET-C | si tilde on écrit et lit caractère suivant (N°2) 
CASE examine le N°2 
8 OF 8 PUT-C IGET-C | si BS on écrit et on lit caractère suivant (N°3) 
CASE \ examine le N°3 
97 OF POS- POS- 132 ENDOF | si a 
101 OF POS- POS- 137 ENDOF \ si e 
i 
o 


_ 


on remplace tilde et BS par ä 


105 OF POS- POS- 139 ENDOF \ si 
111 OF POS- POS- 148 ENDOF | si 
117 OF POS- POS- 129 ENDOF \siu 
DUP ENDCASE \ si rien trouvé pour le N°3 on le laisse tel quel 


+: O: ei ® 


DUP ENDCASE ENDOF À si le N°2 pas BS on le laisse tel quel 

64 OF 133 ENDOF \ si @ il deviendra à 

91 OF 248 ENDOF \ si ’ 

92 OF 135 ENDOF \si\ ç 

93 OF 21 ENDOF \sil paragraphe 

123 OF 130 ENDOF \sit é 

124 OF 151 ENDOF \si: ù 

125 OF 138 ENDOF \ si} è 
DUP ENOCASE \ rien n'a été trouvé on laisse tel quel 
PUT-C STOP? 1?7E0F-Q OR | écrit caractère et teste si doit reboucler 
UNTIL CLOSE-Q ICLOSE-Q ; 


: FRUST € --- ) \ idem Turbo (réduit aux + courants: à ç & 6 € è à) 
10PEN-Q \ ouvre fichier source dont Île “path\ filename" suit 
OPEN-Q \ crée fichier cible dont le "path\filename" suit 
BEGIN IGET-C \ boucle de saisie des caractères un à un 

CASE \ examine le caractère lu 
94 OF 94 PUT-C IGET-C | si * on l'écrit et on lit caractère suivant (N°2) 
CASE \ examine le N°2 


8 OF 8 PUT-C IGET-C \ si BS on l'écrit et lit caractère suivant (N°3) 
CASE \ examine le N°3 
101 OF POS- POS- 138 ENDOF \ si e il deviendra ê 
111 OF POS- POS- 147 ENDOF | si o ô 
DUP ENDCASE \ si rien trouvé pour le N°3 on le laisse tel quel 
DUP ENDCASE ENDOF | si le N°2 pas BS on le laisse tel quel 


64 OF 133 ENDOF \ si @ il deviendra à 

92 OF 135 ENDOF \si\ Ç 

123 OF 130 ENDOF \sit é 

124 OF 151 ENDOF \si: ù 

125 OF 138 ENDOF \ si } è 
DUP ENDCASE \ rien n'a été trouvé on laisse tel quel 
PUT-C STOP? 1?7E0F-Q OR | écrit caractère et teste si doit reboucler 


UNTIL CLUSE-Q ICLOSE-Q ; 


EM+ € n --- ) \ crée nouv fichier avec +n espaces de marge gauche 
\ syntaxe: LM+ filename-source filename-cible 
IOPEN-Q \ ouvre fichier source dont le "path\filename" suit 
OPEN-Q \ crée fichier cible dont le "path\filename" suit 
BEGIN IGETLINE-Q \ boucle de saisie des lignes une à une 
DUP O DO 32 PUT-C LOOP \ écriture de n espace dans le fichier cible puis 
IBUFFER-Q DUP 1+ \ adr réelle chaine CIBUFFER-Q = chaine implicite) 
OVER @ PUT-L \ longueur de chaine et écriture ligne dans cible 
STOP? 1?7E0F-Q OR \ teste si doit reboucler 


UNTIL CLOSE-Q ICLOSE-Q ; \ simple exemple de ce qui est possible 


: REPLACE-C ( o o' --- ) \ crée nouveau fichier en remplaçant caract o par o° 
\ syntaxe: REPLACE-C filename-source filename-cible 
IOPEN-Q \ ouvre fichier source dont le "path\filename" suit 
OPEN-Q \ crée fichier cible dont ie "path\ filename" suit 
BEGIN IGET-C \ boucle de saisie des caractères un à un 
DUP 3 PICK = \ compare avec le caractère à chercher 
IF DROP DUP THEN \ si = remplace par caractère de remplacement 


PUT-C STOP? 1?2E0F-Q OR \ écrit caractère et teste si doit rehoucler 
UNTIL CLOSE-Q ICLOSE-Q ; \ mot très utile pour effectuer des translations 


ECHO ON 


Commentaires généraux 
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Turbo F83 est tout à fait apte à La gestion des fichiers 
séquentiels,. Mais Les mots  dbdiës à cet usage sont 
éparpitlés dans Le vocabulaire Qil en existe une 


quarantaine) et its ne sont pas toujours faciles à utiliser. 
C'est pouquoi ce texte d'initiation a été écrit, Les mots 
principaux regroupés et expliqués, pourquoi aussi quelques 
mots complémentaires sont proposés. 


trentaine de mots très astucieux ont été définis par 
dans UFILES.FTH, ce sont entre autres et pour 


Une 
Michet Zupan 
exemple: 


USING? qui indique si un tichier est autorisé en Lecture 
ou écriture 
USING qui modifie Le type d'accès autorisé (vous en 


aurez besoin!) 

FILESIZE qui détermine La Longueur d'un fichier 

OPEN-R qui ouvre ou crée un fichier en accés direct... 
ainsi qu'une famille de mots adaptés à La gestion 
de ce type de fichier 


OPEN-BLK qui ouvre un fichier-blocks du F83 Laxen et 
Perry... ainsi qu'une famille de mots adaptés à La 
gestion de ce type de tichier 

UNBLOCK pour la conversion de fichiers-blocks en fichiers 
TURBO-Forth, 


Les mots proposés ici sont directement inspirés de ce 
travail de Michel Zupan paru dans JEDI. Voici tout d'abord, 
quetques explications. 


Les fichiers 00S sont caractérisés par Leur "“path\ifilename*, 
Leur taille en octets, Leurs date et heure de création et 
enfin teur attribut. Cet attribut est un octet dont Les bits 
0 à 5 sont à 1 si Le fichier est autorisé en Lecture seule, 
caché, systéme, volume, répertoire, modifié respectivement, 


Atin de pouvoir contenir n'importe Lequel des 256 caractères 
de L'ascii étendu, La fin des fichiers n'est pas marquée par 
un caractère particulier mais est reconnue Lorsque La 
position du pointeur égale La taille du fichier. 


Dans certains cas, un caractère (°Z pour exemple) ou un mot 
(EUF dans Le cas des fichiers de Turba F63) sont utilises 
pour arrêter La saisie, La transmission ou L'interprétation. 


Les fichiers sont “bufferisés" dans une zone de La mémoire 
haute, à raison de 322 octets par fichier, (cette valeur est 


calculée par LBUF). Chaque fichier est identifié par son 
ticket. Pour exemple, HANDLE contient Le ticket du flot 
d'entrée. 

L'adresse du buffer de chaque fichier est calculée par 
BUFFER Selon Le ticket du fichier. Pour exemple, 51 un 
fichier de ticket 5 est ouvert, san buffer sera situé de 
L'adresse 52580 à (L'adresse 62901. Dans chaque cas, Le 
premier octet, dont l'adresse est BUFFER, indique La 


Longueur de Là Ligne, avec un maximum de (cette valeur 


max1 est mémorisée dans C/L). 


255, 


Les 255 
de tampon 


octets suivant, dont L'adresse est BUFFER+1 servent 

de Ligne. Le numéro de Ligne courante est indiqué 
dans Les deux octets suivants, dont L'adresse est LINE#, 
c'est à dire BUFFER+256, Ce numéro de Ligne est informatif, 
il ne Sert pas à positionner (en principe). 


Enfin Les 64 derniers octets (valeur maxi mémorisée dans 
C/PAÏH), dont l'adresse est PATHNAME, contiennent La chaine 
*path\filename" du tichier. 


De nombreux mots de Turbo F83 sont utilisés pour manipuler 
Les fichiers séquentiels, soit pour mimer des commandes O0S, 
soit pour gérer Le flot d'entrée. Ce sont pour exemple: DIR, 


REN, LIST, OPEN, CLOSE, ALLCLOSE, INCLUDE, HANOLE, BUFFER 
etc...). Les primitives correspondantes sont 
particuliérement intéressantes. Ce sont par exemple: 

FILENRME ( --- adr0 ) qui interprète Le "path\filename" qui 


suit et retourne L'adresse d'une chaine ascii0 utilisabte 
par (OPEN) ou (CRERATE). 


PATHWAY © --- ade0 ) idem sans ajouter d'extension par 
défaut. 
CSERRCHO) © adrO att --- fl ) qui cherche te fichier 


spécifié par adr0 et étant autorise en Lecture seute si 


att=1 où en Lecture et écriture si att:0 et retaurne un flaq 
vrai 51 


existe bien. Attention L'attribut de (SEARCHO), de 


(CREATE) et de USING est 
voir plus Loin ces mots. 


différent de l'accès de COPEN), 


COPEN) € adr0 accès --- ticket err 3 qui ouvre un fichier 
spécitié par adr0 en Lecture seule si accès = O0 ou en 
écriture seule si accès=1 ou en Lecture et écriture si 
accés:2 et retourne Le ticket et un flag d'erreur. 


?2D0S-ERR € err --- } signale une éventuelle erreur. Si 
err=0 pas d'erreur, sinon indique La nature de l'erreur, 
pour exemple “accès fichier interdit” Lorsque err=5. 


CCREATE) € adr0 att --- ticket err ) qui crée un fichier 
spécifié par adr0 en lecture seule si att=1 où en Lecture et 
écriture si att-=0 et retourne Le ticket et un flag d'erreur. 
Attention L'attribut de (CREATE), de (SEARCHO) et de USING 
(voir plus Loin) est différent de L'accès de (OPEN). 


(CLOSE) € ticket --- ) qui ferme Le fichier spécifié par Le 
ticket indiqué. 


(SEEK) © Z2len ticket way --- 2pos err ) mot très important 
qui déplace Le pointeur du fichier, indiqué par te ticket, 
de 2len caractères à partir de La position courante si way=1 
ou à partir du début si way=0 ou à partir de La ‘fin si 
way=2. En outre, et c'est Le coté génial de ce mot, il 
retourne ta nouvelle valeur du pointeur et un flag d'erreur. 
Mais attention ce mot n'est pas sécurisé et peut placer Le 
pointeur n'importe oùl 


CPUT) € segment sadr L ticket --- n err ) 
transfert de La chaine explicite désignée 
pointé par Le ticket et l'écrit à La position courante. Le 
flag indique 5i L'écriture à réussi et n indique Le nombre 
de caractères réellement écrit dans Le fichier. 


qui effectue Le 
vers Le fichier 


(GET) © segment adr n ticket --- n' err ) qui effectue Le 
transfert de n caractéres Lus dans Le fichier indiqué par Le 
ticket et ce à partir de La position courante et recopiés à 
L'adresse indiquée située dans segment. Le flag indique si 
La Lecture à réussi, n' étant Le nombre de caractères 
réellement Lus. 


DSEGMENT © --- segment ) retourne La valeur du segment 
courant du système (data-segment). Utilisable avec (PUT) et 
(GET). 


(GETLINED € buffer ticket --- flag ) qui effectue Le 
transfert d’une Ligne complète, c'est à dire terminée par un 
CF), prise dans Le fichier indiqué par Le ticket, à La 
position courante vers une chaine implicite (copie), en 
général, il s'agit de celle pointée par BUFFER. Le nombre de 
caractères Lus (maxi 255) est placé dans Le premier octet de 
cette chaine implicite. Les caractères de contrôles sont 
éliminés, y compris CR et LF. Le flag indique si La fin du 
fichier a été atteinte (NB Le fin est forcée en cas 
d'erreur). 


Les mots complémentaires praposés ici servent essentielle- 
ment à séparer ta gestion du flot d'entrée de celle du 
fichier séquentiel, comme l'avait fait Michel Zupan pour Les 
fichiers à accés direct, Ces mots complémentaires sont 
commentés dans Le détail et sont donc faciles à comprendre 
et à modifier. Voici quelques explications comptémentaires. 


Il est un peu difficile d'écrire dans un fichier en accès 
séquentiel, c'est pourquoi il n'y a pas, en standard, de mot 


du genre PUTLINE pour écrire une Ligne. En effet si La 
nouvelle Ligne n'a pas La meme Longueur que celle qu'elle 
"écrase“, La situation devient vite inextricable. 


L'utilisation de PUT-$, PUT-C et PUT-L est donc Limitée. Une 
tentative à êté faite avec REPLACE-L qui permet de remplacer 
une Ligne entière du fichier par une chaine qui sera 
tronquée 51 sa Longueur est supérieure à cetle de La Ligne 
d'origine ou qui sera complètée avec des espaces 51 etle est 
plus courte, L'utilité de ce mot reste à prouver. Sinon il 
faut s'orienter vers un programme de traitement de texte. 
Par contre, il est très facile d'ajouter du texte à La fin. 
C'est Le rôle des mots complèmentaires APPEND-$, APPEND-C et 
APPEND-L. 


Lorsque Le mat GET-C atteint La fin du fichier, ne pouvant 
rien Lire et devant retourner un caractère, on a choisi de 
lui faire retourner "2 {ascii 26), valeur qui est 
modifiable. 


LINE#-Q, numéro de Ligne courante est informatif. 
du fichier correspond à La valeur zéro, 5a mise à 


Le début 
jour est 
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douteuse, etle n'est pas prise en charge par TOPOS, (PUT) 
(GET) et CSEEK), ce qui restraint son usage. Toutefois 
OPEN-Q et REWIND Le remettent à zéro, GETLINE-Q et 5es 
dérives SKIP-Q, TOLINE, GET-L et L--2 L'incrémentent. <--L 


est basée sur LINE#-Q et n'est pas plus fiable que ce 
dernier. Si TOLINE est conçu pour positionner à La Ligne 
voulue, il utitise une valeur différente de celle de 
LINE#-Q, en eftet, Le début du fichier correspond à La 
valeur 1 (Cilère Ligne). TOLINE et SKIP-Q utilisent un No de 
Ligne positif. YJoute valeur signée sera considérée comme un 
nombre positif. Si le No de Ligne est plus grand que Le 


nombre de Lignes du fichier, Le pointeur 1Fa à La fan du 


Télématique 


CONTENU OÙ FORUM 3615 SAM*JEDI 


Préambule: 

J'ai pris La décision de ne plus 
SECRETAIRE" Qui était jointe à chaque 
pour deux raisons: 


faire La "LETTRE DU 
numéro de JEDI, ceci 


1) permettre de gagner deux pages au profit de JEUDI, ques- 
tion poids de La revue, qui ne doit pas dépasser, enveloppe 
comprise 100 grammes, sinon Les frais d'expédition doublent. 


2) depuis La mise en place de SAM#JEDI, notre serveur, de 
nombreuses informations ne nécessitent plus d'être diffusées 
sous forme de complément à La revue. Grâce à SAM*JEDI, Les 
informations URGENTES peuvent être communiquées très rapide- 
ment, ce qui a été Le cas notamment de l'invitation HARRIS 
au séminaire du 18 novembre et dont nombre d'adhérents n'au- 
raient pu prendre connaissance par Lettre du fait de La 
grève des postiers. 


Quand à L'accès par 3615, il ne sera pas remis en cause. SAM 
envisage même d'ouvrir un accès à SAM#JEDI par Le 3616, afin 
que Les adhérents puissent accéder à notre serveur depuis 
Leur Lieu de travail si Leur Ligne est interdite de 3615. 
Cet accès par 3616 est en cours de négociation avec FRANCE 
TELECOMM. 

Se Te né dE TE — —— 
F32 04.10.88 17h39 

F32 A PRIS CONTACT AVEC HARRIS AFIN DE REGLER NOS POSITIONS 
RESPECTIVES SUR NOTRE DEVELOPPEMENT. HARRIS AYANT DEJA ACCES 
A SAMXJEDI LES MESSAGES EMANANT DE F32 SONT DESORMAIS EMIS 
DIRECTEMENT VERS LES BAL DES PARTICIPANTS. DE MEME ADRESSEZ- 
VOUS DIRECTEMENT A F32, CECI VAUT TANT QUE NOUS N'AVONS PAS 
DEFINI NOS RELATIONS, CE QUI DEVRAIT PRENDRE-)DECEMBRE. PLUS 
QUE JAMAIS CONTACTEZ F32 NOYAU SGBD F32 HAUT LES COEURS! 


FORTH7 06.10.88 14h24 
SUPER EDITEUR DE LIGNE ULTRA-SIMPLE: Les concepteurs de 
Turbo-Forth sont encore plus geniaux qu'ils Le pensent: 
saviez-vous que Les variables STRING ont exactement La 
structure d'un tampon M5-D05 ? Definissez Le mat simplissime 
suivant: 
: EXPECTS UROP 2- 10 B00S DROP CR ; 
Puis essayez: 40 STRING TEST 

TEST EXPECTS 
Pour peu que vous ayez charge DOSEDIT ou CED etc... vous 
entrerez TEST en beneficiant des fleches, de L'insertion par 
INS, du BEEP en fin de tampon ou du rappel des precedentes 
entrees... ABSOLUMENT INCROYABLE NON ? 


F32 06.10.88 18h22 
F32 CHERCHE FORTH POUR ATARI 52097 VEUILLEZ UTILISER MA BAL 
SVP. MERCI D'AVANCE 


TICK 10.10.88 09h24 

COMMENT CREER LE MOT C: OU D:. EN F83 IL EXISTE BIEN A: ET 

8: MAIS LE MOT SELECT UTILSE PAR CES MOTS N'EST PAS RECONNU 
R: 0 SELECT ; OK 

+ 0% 3 SELECT ; SELECT? 

Y A T'IL UNE AUTRE SOLUTION QUE UN ASSIGN D:B 


SECRETAIRE 10.10.88 15h44 
ATTENTION, LE MOT SELECT EN F83 
VOCABULAIRE D05: 

ONLY FORTH DOS ALSO FORTH ALS0 

: € 2 SELECT ; : D 3 SELECT ; 

ONLY FORTH ALSO 
OÙ PLUS SIMPLEMENT 

: C: 2 © DOS J SELECT © FORTH ] ; 
SINON SUR TURBO-FORTH, C: D: ET E: SONT DEJR DEFINIS. 


EST DEFINI  OANS LE 


re Jeot N°48 dés 8? 


fichier. 


Le flag E0F? n'est pas utilisé. Toutefois un mot nouveau à 


été crée pour tester si La fin du fichier est atteinte, 
c'est ?E0F-Q. 
Enfin, Le travail simultané sur deux fichiers séquentiels, 


dont L'un est ouvert en Lecture seule (protection) offre La 
possibilité d'effectuer des copies, conversions, adaptations 
diverses, transtations ou élimination de caractères sans 
autre Limitation que votre imagination. 


11.10.88 09h52 


TICK 
Votre super svst expert FORTHlog a-t-il ete adapte au 
turbo-FORTH notamment; si OUI son prix est il change? Si 


NON peut on acquerir directement La version 11B? MERCI... 


SECRETAIRE 11.10.8B 12h44 

ADAPTATION FORTHEOG II: CE GENERATEUR DE SYSTEMES EXPERTS 
N'A PAS ETE AOAPTE A TURBO-FORTH COOMMAGE). MAIS COMME VOUS 
POUVEZ L'IMAGINER, NOUS NE SOMMES QUE TRES PEU DE MEMBRES 
ACTIFS, S'IL Y A DES COURAGEUX QUI SOUHAITENT SE LANCER 
DANS L'AVENTURE... CEPENDANT, POUR INFO, JEOI VA DIFFUSER 
EN 4 PARTIES, UNE VERSION DU LANGAGE PROLOG ECRITE EN 


FORTH. JE PENSE QU'IL VAUT MIEUX ATTENDRE CE MERVEILLEUX 
ARTICLE PUIS  DECIDER ENSUITE DE LA VOIE A SUIVRE. 
SALUTATIONS. 

TICK 12.10.88 17h23 


SLT LES FORTHIENS: COMME JE NE SUIS PAS UNE BETE EN FORTH 
JE ME PROPOSE D'ECRIRE UNE DEMONSTRATION TOURNANTE CE TURBO 
FORTH. ELLE CONSITERAIT A EXPLIQUER L'INTERET DE CE LANGAGE 
ET LA GUALITE DE TUR-FTH, MA DISPO ME PERMETTRAIT D'ARRIVER 
A UN BON RESULTAT SOUS 8-9 SEM. 

COMME JE NE PEUT ME SUBSITUER AUX AUTEUR DE CET OLTIL ET 
QUE QUELQUES IDEES ME MANQUENT ENCORE JE COMPTE SUR VOUS 
TOUS POUR DES TONNES DE SUGGESTIONS. 

MON DESIR PROFOND EST DE FAIRE DE FORTH UN LANGAGE DE + EN 
+ DIFFUSEE. ECRIVER SUR LE FORUM OU DIRECTEMENT DANS MA BAL 
TICK'... BALTICK AHAHAHAH (Ndir: voici de L'humour froid) 


SECRETAIRE 13.10.88 08h38 

pour rappel, Les concepteurs de 
sont: 

- Marc PETREMANN (moi-meme) 

- Michel ZUPAN (FORTH7) 
Mais depuis sa sortie officielle, ce langage est maitrise 
aussi par d'autres cracks que je ne citerai pas ici. Donc, 
excellente initiative de TICK. Mais il V a mieux qu'une 
simple demo tournante 8 realiser, ce serait un veritable 
TUTORIAL. J'avais deja commence qque chose en ce sens, mais 
par manque de temps... no comment. 


TURBO-FORTH 83-Standard 


En ce qui concerne Le manuel de TURBO-Forth, nous ne pen- 
sons pas L'achever avant La fin du premier trimestre 89. 
Toujours ce manuel TF83: nous sommes revenus sur La 
presentation initalemment envisagee et , avons decide de Le 
decouper en trois parties distinctes: 

1) prise en main: pour ceux ne 
rien a FORTH. 

2) glossaire detaille et thematique: Les mots sont 
expliques par ordre Logique; ex: IF ELSE THEN CASE OF ENDOF 
ENDCASE,,, etc... 

3) programmation avancee: des 
tres ardus,. Pour bien 
petite biere... 


connaissant absolument 
themes de programmation 
demontrer que FORTH n'est pas de La 


Donc, fideles adherents programmeurs Forthiens, nous com- 
prenons votre impatience, mais nous souhaitons repondre au 


mieux de votre interet à votre soif de connaissance sur 
FORTH. 
fh, petite disgression: ayant rendu visite a F32, nous 3- 


vons teste TURBO-Forth sur station de travail APOLLO (equi- 
pee je crois d'un 68000 qquechose) et... ca marche!!! Cen 
mode emutation IBM, precisons-le). 


Petit message à DUMUR: 
emulateur 68000 sur PC? 


quand mettons-nous au point un 


TICK 13.10.88 10h25 : 
CHER SECRETAIRE, JE ME PROPOSE POUR UN PETIT COUP DE MRIN 


{suite page 23) 
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Germany 


FORTH ON THE IBM : PRIME NUMBERS 


There is a well known public domain version of FORTH83 for the IBM-PC by Laxen 
and Perry, which is screen-based, 1.e., it makes use of FORTH's block concept. 


There is a very active group of FORTH enthusiasts residing in Paris: 


ASSOCIATION JEDI 
17, rue de la Lancette 
F-75012 PARIS . 


Recently, JEDI activist Marc Petremann and his colleagues have developed a 
FORTH83 version based on the MS-DOS file concept. They call it Turbo-FORTH. It 
is simply marvellous and I have started to convert their French system into a 
German system. 


I understand that they are going to produce an English version as well as a 
Spanish version in addition to the French version they started with. 


I may honestly say that their's is Rs PEU DOS-based system I was waiting 
for. I wouldn t care too much about portability. I want to use it on my machine 
and want to use it now and I want to be able to talk about my doings to others 
having similar machines. 


Marc Petremann and his colleagues have also written a book on Laxen and Perry's 
FORTH83 ( in French ) which covers most of Turbo-FORTH. À manual on Turbo=FORTH 
will soon be available. 


The JEDI people have not places their Turbo-FORTH into public domain. However, 
the prices t Es (FF 37.- for the main disk, FF 100.- for system plus tools 
{full screen editor, floating point package etc.] } are very low indeed. 


As to my own efforts: I have completed a translation into German of an 8-page 
short description ( LISEZ.MOI ==) LIES.DAS } and the preparation of a German 
version of the main system. The translation of an inline HELP file, explaining 
the FORTH words by evoking HELP (word), is nearly completed. 


| 
The three disks distributed by JEDI contain à piece of FORTH called ERATHOS, 
a program for determining the peine numbers up to n by the famous sieve method 
of Eratosthenes: For each i between 1 and Ÿn , mark all multiples of i. The 
numbers remaining unmarked are the prime numbers. 


JEDI's program is ment to be a benchmark for demonstrating the speed FORTH is 
‘able to develop: The primes between 1 and 10000 in 2.14 seconds on my AT clone. 


JEDI's program is a ready-to-go program, not Éhtng Avantage of the fact that 
it suffices to consider only those multiples of i which do not exceed ÿn. I vas 
wondering how much time could be saved by adding some sort of a square root 
restriction. What was needed was a quick-and-dirty method for determining the 
square root of an unsigned 16-bit number u. 


I tried two SQR programs which I found in the book "FORTH 83" by Zech. The 
apply Newton's method or the method of quadratic extension. Then constructe 
one of my own: It applies bisection (interval halving).(The method of bisection 
for UE an argument x where the function involved assumes a prescribed 
value ( here f(x} := x1 := u } works with any continuous function on à compact 
| interval. This is simply an application of the intermediate value theorem.) 
€ 
| 


The time needed for determining the square root of a given number can be neg- 
lected if compared with the time needed for calculating the first 1000, say, 
prime numbers. So, any square root program, as brute as it may be, wili serve 
the purpose. On the other hand, the time needed for calculating the prime num- 
bers by ii program could be reduced by one third if a square root mechañism 
“as inserted. 


Let us begin by reproducing JEDI's program (kind permission taken for granted}. 


\ RAAKRARRARARRRRRRRRRE À 


\ Sieve of Eratosthenes 
\ RRAKKRARRARRRRRRRRRRÉÉÉ 


FORTH DEFINITIONS DECIMAL . 
8190 CONSTANT SIZE \ Pseudo constant, size of table from 1 to n/2 


: PRIMES ( n -- ) \ display number of prime numbers from 1 to n 
4 MAX DUP 2/ 1- IS SIZE PAD SIZE 1 FILL 
2 SIZE 0 
DO PAD I + Ce 

IF I 2* 3 + DUP I + 
BEGIN DUP SIZE « 
YHILE O OVER PAD + C! OVER + 
| REPEAT DROP DROP 1+ 
THEN 
LOOP 
. ."" Primes between 1 and “ . : 


LISTING ( -- } \ dis as list of prime numbers determined by PRIMES 
CR 1 . 2 . SIZE DO PAD I + C@ IF I 2* 3 + . THEN STOP? ?LEAVE LOOP : 


Now load the Turbo-FORTH program TIMER by INCLUDE TIMER. Then determine the 
time needed for the primes between 1 and 10000 by 


1 CHRONO" 10000 PRIMES" 


As a result, I obtained 2.14 sec on my AT. 
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The next step was to include a square root program SOR into the above. So, here 
is my modified version of JEDI's program: 


RRKKRRRERÉARERAERRERÉRREÉAREXEX 


\ 
À Sieve of Eratosthenes - II 


KRKÉRRKRRALRRARÉREREARÉAEREXÉK 


echo off 
FORTH DEFINITIONS DECIMAL \ definitions in vocabulary FORTH 
8190 CONSTANT SIZE \ pseudo constant, 
\ size of table from 1 to u 
: PRIMES ( u -- } \ displays number of 
\ prime numbers from 1 to u 
DUP SQR 2/ PAD 2- !. \ Store vu/2 in PAD-2 
4 MAX \ minimum size 
DUP 2/ 1- IS SIZE \ size of table from PAD 
PAD SIZE 1 FILL \ fill table with l's 
2 PAD 2- @ 0 \ for I=0 to fu/2 do the following 
DO PAD I + C@ \ if PAD+I contains 1, then do: 
IF I 2* 3 + DUP I + \ multiples of 2*I+3 
BEGIN DUP SIZE « \ s“hile not yet table end 
YHILE O0 OVER PAD + C! OVER + \ store O in PAD+2*I+3 
REPEAT DROP DROP \ repeat for next multiple 
THEN \ if PAD+I = 0, then skip 
LOOP \ repeat if not yet I = fu/2 
SIZE \ for I=0 to u/2 do the following 
Do PAD I + Ce \ if PAD+I = 1, then 
IF 1+ \ increment counter 


OP 
." Primes between 1 and “ . ; \ display number of primes 


LISTING (€ -- } \ De list of prime numbers determined by PRIMES 
CR 1 . 2 . SIZE DO PAD I + C@ IF I 2* 3 + . THEN STOP? ?LEAVE LOOP ; 


As to the square root program SQR, I first tested the following bisection pro- 
gran of my own invention: 


SQR ( ul--u2 }) \ Greatest number not grasse than ul 
HÈRE ! O PAD ! \ Save ul, initialize PAD (accumulator) 
1 2 4 8 16 32 64 128 \ Keep povers of 2 
8 0 \ Repeat 8 times 
DO DUP PAD @ + DUP * HERE @ \ Tentatively add next power of 2 to PAD 
u) EF DROP O THEN PAD +! \ PADZ > ul ? Yes: drop it. No: do it 
LOOP \ pepe the above 
PAD @ : \ Coilected poners of 2 represent INT(ul) 


The modified sieve program containing this square root program yielded the 
prime numbers between 1 and 10000 in 1.65 seconds ( as compared to 2.14 sec 


ÿith the unmodified French version). 
To measure the time performance of SQR itself, I typed in 1 CHRONO" TEST" with 


: TEST 
65535 O0 DO I SQR DROP LOOP ; \ Execute SQR for 0 to 65535 
The result was 155.39 sec, which gives a crude avarage of 2 msec for one run. 


This done, JI was wonderin about the performance of the two square root pro- 
grams from the book by Zech. The first program reads: 


; gR { u--u ) \ Nenton's iteration 
Dee 0= IF EXIT THEN 


BEGIN 
2DUP 
0 SWAP UM/MOD SWAP DROP 
OVER + 
2/ 
DUP ROT 
ABS 
2/ 
HHILE 
REPEAT ; 


The above CHRONO test yielded 56.03 sec, which is only one third of the value 
for the method of bisection. 


The second square root program which I found in Zech's book is in machine code. 
It reads: 


CODE SQR ( u--u }) CX POP 08 # DI MOV OH AX MOV AX DX MOV 
BÉGIN STC 
DX RCL 


CX SHL AX RCL 
CX SHL AX RCL 
DX AX CMP 
>= 
IF DX AX SUB 
DX INC 

ELSE DX DEC 
THEN 
DI DEC 

0= UNTIL 

DX SAR 

DX PUSH NEXT END-CODE 


This works by the method of quadratic extension. The above CHRONO test yielded 
7.174 sec, “Rich shows that machine code programming is still unbeatable. How- 
ever, it also demonstrates how easy it is to incorporate pieces of machine code 


into FORTH. 
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The above modification of JEDI's prime number program PRIMES only works cor- 
rectly if u © 32767. This is because MAX does not work with unsigned numbers. 
Here is ny suggestion for UMAX, a modified MAX: 


: UMAX ( ui,u2--u3 ) \ u3 = max(ul,u2), all numbers unsigned 
2DUP UK \ ul © u2 ? 
IF SYWAP THEN \ xes (no), then PESPArÉ ul (u2} to be dropped 
DROP :; \ rop it and keep the remaining 


A similar arrangement could be made for UMIN: 


: UMIN ( ul,u2--u3 ) \ u3 = min(ul,u2), all numbers unsigned 
2DUP U> IF SWAP THEN DROP ; 


Before making further modifications, let us briefly discuss a few items: 


{1} The maximal data stack length,multiplied by 2, determines the maximal range 
of numbers which can be searched for primes. So, let us insert an error 
message and an exit switch for cases of violation. 


{2) The range of numbers to be searched for primes may exceed 32767. Hence, "." 


in the message part must be replaced by "U." . 


(3) LIST in JEDI's program stops whenever a key is pressed,and continues there- 
upon when any key 1s touched, or exits when the key then touched is CR. If 
ve envisage some 6000 prime numbers to be Te on the screen, it will 
certainly not be bad to be able to prescribe the number the list is to 
start with. À sieve program thus modified could read as follows: 


PTÉRTILILEILLLELLLLELLLLELLES SES) 


\ 
\ Sieve of Eratosthenes - III 


PTEELLILILLLILLLLLELELLELS ESS: 


echo off 

FORTH DEFINITIONS DECIHAL 

8190 CONSTANT SIZE 
VARIABLE SOROOT 

: PRIMES ( u -- } 


DUP U2/ SP@ 100 - PAD - U) \ enough secs Dr. 
IF ABORT" Not enough space " \ if not, Chen print message 
THEN \ and abort, otherwise 
DUP SQR 2/ SOROOT ! \ store fu/2 in SQROOT 
4 UMAX \ MAX ep by UMAX 
DUP U2/ 1- IS SIZE \ 2/ replaced by U2/ 
PAD SIZE 1 FILL \ fill table with l's . 
2 SQROOT @ 0 \ for I=0 to fu/2 do the following 
?DO PAD I + Ce \ if PAD+I contains 1, then do: 
IF I 2* 3 + DUP I + \ multiples of 2*I+3 
BEGIN DUP SIZE U< \ while not yet table end 
KHILE Q OVER PAD + C! OVER + \ store 0 in PAD+2*I+3 
REPEAT DROP DROP \ repeat for next multiple 
THEN \ if PAD+I = O0, then skip 
LOOP \ repeat if not yet I = Ÿu/2 . 
SIZE \ for I=0 to u/2 do the following 
DO PAD I + Ce \ if PAD+I = 1, then 
IF 1+ \ increment counter 
THEN 
pe 
." prime numbers between 1 and “ U. ; \ display number of primes 
: LISTING des Fe ; \ displays list of prime numbers determined by PRIMES 
< 
IF 
DROP 0 1 . 2 
ELSE , l 
3 - \ display first two primes 
THEN 
U2/ 
DUP SIZE 1- > 
IF ABORT" Try again ! " 
THEN 
SIZE SWAP \ for I=0 to u/2 
DO \ do the forionins 
PAD I + C@ \ if PAD+I = 1, then 


IF I 2* 3 + U. 


THEN 
STOP? ?LEAVE 
LOOP ; 


The CHRONO test, done with the above ERATHOS-III version, yielded 1,65 sec for 
10000 numbers searched, the same as with ERATHOS-II. Hence, the modifications 
applied to ERATHOS-II did not slow down the time of performance. The time 
needed for determining all prime numbers between 1 and 65535 vas 11.26 sec 
for ERATHOS-III. 


Hitherto, we have made use of the fact that only odd numbers can be prime. In 

order to be able to employ as much RAM space as possible, from à total of 64K, 
addressable by means of 16-bit numbers sue xe are now going to also exclude 
numbers which can be divided by 3. In other words, we wish to skip over all 
numbers devidable by 2 and/or 3.It is clear that the overall saving will amount 
to 2/3: Every second number is devidable by 2, which yields a reduction of the 
set of numbers to be searched by 1/2 or Je. Every third number is devidable 
by 3, which yields a reduction by 1/3 or 2/6. Every sixth number is dividable 


by 2 and 3 and has thus been counted twice in the sum 3/6 + 2/6. Hence, the set 
dé numbers to be searched reduces to 6/6 - 3/6 - 2/6 + 1/6, or 1/3 
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Let us pause for a moment and consider the following scheme. (For reasons which 
are obvious, we start with ud = 


ud 5678 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 
D NOR 2 LC LS RP ARE eee 
ud 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 
DO | io [ii | 12 [13 | À Lis ji | [1 iù | 

ud 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 12 13 14 75 16 11 18 19 80 81 

TO | is is | | 120 [2 | | 122 125 | | 124 F2 | | 

ud 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 

D [26 27 | | 128 29 | | 130 [3 | | | 321 31] 

ud 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 
SE RE ON ES SR SR 


Here, ud denotes the generic member of the set of all numbers to be searched 
for primes, vwhereas I, the loop index in the program to follow, corresponds to 
the members of the set'of numbers remaining When the numbers which can be di- 
vided by 2 and/or 3 are deleted. 


Looking at the scheme above,re see that every even I has skipped over 2*I posi- 
tions, whereas for odd I's this number is 2*I-1. Since ud, the number corre- 
sponding to the loop index I, is I plus the number of positions skipped, and 
since we start with 5, we have 


*]+5 for I even 
*]1+4 for I odd 


Ç 


e 

Re R 
EL 
Ww to 


This is the relation we need for the final recovery of the prime numbers from 
the condensed table. Now let us procelr discuss how to represent, for each I 
with its associated ud , those l's which are associated with multiples of ud. 
Let us take a purely experimental approach, using the scheme above: 


For ud =. 5, the next multiple of ud corresponding to an existing I from the set 
of loop indices, is ud = 5*5 . The next again is ud = 5*7, followed by 5*il, 
5*13, 5*17, 5*19, 5*x23, 5*25 ..., etc. 


Similarly, for ud = 7, we have 7*5, 7*7, 7*11, 7#13, 97x17, 719, 7*23, 7*25,... 
In general, ud*5, ud*1, ud*il, ud*13, ... 


Back to I, this amounts to I = 7, 10, 17, 20 27, ... for ud = 5 1 = 0). And 
Te 10, 18, 24, 29, 38, ... for ud = 7 (I = {). ‘Again, I = 117, 24! 39, 8, je 
11 (L'= 2/. And, I = 20, 29, 46, 55, ..… Foë ud & 13 II = 3) ete. 


It is easy to see that this will be covered by the following relations: 


for ud = 


In other words, for any I we have that 
L + AMI#T + 2%I+3 + 4XI+S + 22143 + AXI+T + 2*I+3 + ... 


represents a multiple of the corresponding ud (which cannot be a prime number). 
The consecutive first terms of the form shown above will therefore have Co 
produce à 0 in our condensed table. Here is the complete program: (Note that in 
quite a few places ve had to replace a 16-bit unsigned number [ or a 16-bit op- 


eration ] by its 32-bit counterpart.) 


: UDC ( udl,ud2--f1 } \ fI=TRUE if udl € ud2 ; f1=FALSE otheruise 
DUP 3 PICK = \ upper parts equal ? 
IF \ EEE then nt 
ROT 2DROP UK \ lower parts are decisive 
ELSE \ no, then 
SWAP DROP ROT DROP \ upper parts 
U< \ are decisive 
THEN ; 
: UD) ( udl,ud2--fl } \ fI=TRUE if udi > ud2 ; f1=FALSE otherwise 
2SWAP UDC ; 
: UD= à payer el } \ fI=TRUE if udi = ud2 ; fl=FALSE otherwise 
: UDMAX ( udi,ud2--ud3 } \ ud3 = max(udi,ud2}, unsigned, double precision 
4DUP UD( \ udil € ud2 ? 
ele \ yes (no), then prepare udi (ud2} to be dropped 
\ 


drop it and keep the remaining 
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: SOR ( udi--ud2 } 
HÈRE 2! O PAD 
1 2 4 8 16 32 éa 128 256 512 
1024 2048 4096 8192 16384 321768 


16 0 
DO DUP PAD @ + DUP UM* HERE 28 


er 


greatest number not greater than fudi. 
save udl, 
keep 
povers of 2 

repeat 16 times 

tentatively add next power of 2 to PAD 


initialise PAD (accumulator) 


UD> IF DROP O0 THEN PAD +! PAD? } udl ? Yes: drop it. No: do it 
LOOP repeat the above 
PAD @ : collected powers of 2 represent INT(Yud1) 
: NOT! ( addr-- } \ logical conversion of content of 
DUP @ NOT SWAP ! ; \ variable in address addr 


KkREAKHKLÉRKRRÉRRRAXEARKHREEREXÉE 


\ Sieve of Eratosthenes - IV 
\ KÉRkAAAAKXRRRKRÉÉLARLRLÉRÉELXÉ 


echo off 

FORTH DEFINITIONS DECIMAL 

8190 CONSTANT SIZE 
VARIABLE SOROOT 
VARIABLE FLAG 

: PRIMES ( ud -- }) 


5. UDMAX 
2DUP 5. D- 3 UM/MOD IS SIZE DROP 


SIZE SP@ 100 - PAD - U) 
IF ABORT" Not enough space 


THE Le 
2DUP SQR 3 / 1+ SOROOT ! 
PAD SIZE 1 FILL 
FLAG ON 
SQROOT @ 1+ © 
?D0 FLAG NOT! 

Ï 

PAD I + C@ 

IF 

BEGIN 


I 2* 2% 7 + FLAG @ 2* + + 
DUP SIZE U> NOT 


IF DUP PAD + O SWAP C! THEN 
I 2* 3 + + 
DUP SIZE U<= 
WHILE DUP PAD + O0 SKAP C! 
REPEAT 
THEN DROP 
LOOP 
3 
SIZE 1+ 0 
DO PAD I + Ce 
IF 1+ THEN 
LOOP | 
ce . ." prime numbers between 1 and " 


The CHRONO test mentioned above yielded 1 


primes. In other words, in spite of the fact that ve had to include double 
the saving gained is not only with space but with time, 


cision operations, 
À search from 1 


a total of 10585 prime numbers in 13.8 


(Note that ud must be typed in as a double precision number. If, 
rime numbers in the range of 0 to {62999 


#e “ant to search for 


mand should read “102999. PRIMES" .) 


The following FORTH word LISTPRIMES is for SAspiAyiRe the 
By entering A 
rs to be displayed can be changed. 


snye 
be interrupted definitely. 


ran PRIMES . 
number for the nun 
ing prime numbers eu be interrupte 
DE again LA PAL key except (CR). 
the isp 


process of aying wil 


e determined by XXX. 
e 


2VARIABLE STARTPRIME 
O0. STARTPRIKE 2! 


: LISTPRIMES ( -- } 
STARTPRIME 28 5 
6 UM/MOD SWAP DROP 2* 
DUP O UC IF DROP O THEN 
DUP SIZE U) 
IF ABORT" Try again ! “ THEN 
CR ."” Prime numbers between 
DUP 0 LL] LL 


IF ‘ 
ELSE DUP 3 UH* 5. D+ UD. 
THEN 


à SRSpIAYs list of 


“ 


SIZE 3 UMX S. D+ UD. ." :" CR 
IF 1. 2. 3. THEN 

FLAG ON 

SIZE 1+ SWAP 


DO 
FLAG NOT! 
PAD I + Ce 


rer et 


TT ct 


.1 


to 65535 was done in 7.96 sec. 
my machine with the full Turbo-FORTH system installed, 
sec. 


ti 
t 


\ 
\i 
\ 
\ 


gr 
\ 


er et et 


table size 
(fud)/3 
adjust for table entry odd or even 


min for start is 5 

table size one third 

enough space ? 

if not, then print message 

and abort, otherwise 

store (Yuf/3 in EE sal 

fill table with 1 

initialize FLAG (-1, 0, .) 
for I=0 to (fud)/3 do ne following 
-1 if I odd, 0 othervwise 

next candidate 

if PAD+I contains 1, 

then do: 


add 4*I+7(6) 

if table end, then leave 

store O0 in PAD+4*I+7(6) 

add 2*I+3 

if table end, then leave 

store O in PAD+2*1+3 

repeat for next pair of multiples 
if PAD+I = O0, then skip 

repeat jf not yet I = Lfud) /3 
initialize counter 


for I=0 to SIZE do the following 
if PAD+I = 1, then’ 
increment coûnter 


splag 
number of primes 


5 sec for 10000 numbers searched for 
re- 
Eco. 
available on 


The maximal range FibR er ed 
which yields 


is 111600, 


for instance, 
the FORTE con- 


rime numbers in the 
RTPRIME 2!" the starting 
The process of display- 
me by hitting any key, and resumed 
he second key pressed is CR), then 


XXX 


song number for list search 

0 by default 
on be altered to xxx. 
by XXX. STARTPRIME 2! 
ime numbers determined by PRIMES 
starting number for table search 
adjuste ‘a even table entry 
adjust to O if (STARTPRIHE) « 5 
if greater than table size, 
then abort 
a opening nessage 

less, 

then start with © 


nav r range 
of number 

searched 

if table entry smaller than 0, 
disprag fi res à primes 

initializ 

for I= TT ISTRRTPRIME/6) #2 to SIZE 
do the Folloning 

-1 if I odd, 0 otherwise 

if PAD+I = Î, 


13 
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IF I 3 UMX 5. D+ FLAG &@ 
DUP D+ UD. 
THEN 
STOP? ?LEAVE 
LOOP ; 


, here is à FOR 

Lo. Obviously, there 1s 
f a “pair” of porRe nun 

rime num 

If DISPLAY OFF, 


Finall 
tance 
notion .o 
ing pis of À 
or "DISPLAY OFF 
DISPLAY ON,the process can 


DISPLAY 
DISTANCE 
DISTEMP 
DISFLAG 
PAILRCOUNT 
PAIRSTART 
PAIRPOINTER 
PAIRFLAG 


VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 


: PAIRS ( u-- }) 


CR DUP DISTANCE ! 
PAIRSTART OFF PAIRCOUNT OFF 
PAIRFLAG ON 


l1= 
IF PAIRCOUNT 1+! 
DISPLAY @ 
F 3. 5. 
ASCII - 
THEN 


THEN 
DISPLAY @ O= 
IF ." Yait a few seconds 
BEGIN 
PAIRFLAG NOT! 
PAIRSTART @ DISTANCE @ + 
DUP O0 3 UM/MOD SWAP DROP - SIZE U 
XHILE 
PAIRPOINTER OFF 
PAIRFLAG @ NOT DISFLAG ! 
DISTANCE @ DISTEMP ! 
PAD PAIRSTART @ + C@ 
IF 
PAIRSTART @ PAIRPOINTER @ + 
SIZE U<= 
IF 
BEGIN 
PAIRPOINTER 1+! 
DISFLAG NOT! 
DISFLAG @ DISTEMP +! 
PAIRPOINTER @ DUP PAIRSTART 
PAD + C@ 0= 
SHAP DISTEMP @ UC AND 
YHILE 
REPEAT 
PAIRPOINTER @ DUP PAIRSTART 
PAD + C@ 1 = 
SWAP DISTEMP @ = AND 
IF 
DISPLAY @ O0<> STOP? NOT AND 
IF 
PAIRSTART @ 3 UM* 5. D+ 
PAIRFLAG @ O0 D+ 2DUP UD. 
DISTANCE @ O D2* D+ UD. 
SPACE ASCII - EMIT SPACE 
ELSE 
DISPLAY @ 
ABORT" Display aborted ! 
THEN 
PAIRCOUNT it! 
THEN 
THEN 
THEN 
PAIRSTART 1+! 
REPEAT 
CR PAIRCOUNT @ U. 


NE pie ÉL of distance 
DISTANCE 0 D2* UD 


The maximal range available on my IBM 
maximal distance two prime numbers c 
which is assumed by the pair 31397 31 


SPACE 
EMIT SPACE 


{* THEN 


4 
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TH word for dis 
no nee 
bers is covered b 
ers can be switched on 


be interrup 


then display 
corresponding 
prime number 
1f any ke pressed, then stop; 
if thereafter CR, then exit; 
otherwise loop back 


tt 


ying all pairs of prime numbers of dis- 
or u being double precision. The usual 
u=l . The process of display- 
and off by entering “DISPLAY ON" 
the number of pairs is output. If 
th LISTPRIMES. 


gt 


then only À 
ted by the same means as wi 


ON/OFF | 
distance between prines in pair 
every third table OLEX skipped 
add table entry skipped ? 
number of pairs . 

start of current pair 

where in current pair ? 

add table entry skipped ? 


plays number of pairs of distance 2u 
prime numbers determined by PRIMES 


keep distance 
initialization 


if DISTANCE = 1, 

then increase PAIRCOUNT 
and if display on, 

then display pair (3,5) 
and spaces 


Cet er tt 


dis 
o 


tte Las 


if DISPLAY switched off, 
then display message 
main loop 


if position of 2nd prime in 
current pair is greater than 
table size, then exit 
otherwise 

initialize PAIRPOINTER 
and local entities 
DISFLAG and DISTEMP 

if nonprime, then skip 


< 


if greater than table size, 
then skip 
otherwise loop « 
increase pointer 


@ + if table entry <> 0 or 
pair limit exceeded, 


then exit 


@ + « 
if table entry = 0 or 
pointer «(> distance, 
then skip 
if DISPLAY switched off, 
then skip 
display Ist prime 
odd or even ? 

display 2nd in pair 
space between pairs 


if STOP and CR, « 


OK" then abort 


increase paircounter « 


increase current pairstart « 


< 
dispia 

\ of Sista 

AT cione is from 


an be apart in this range 
469 


\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
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\ 
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\ 
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\ 
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number of pairs 
nce 2u 


1 to 110000 or so. The 
seems to be 72, 
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Abstract 


In this article we outline the design of a Prolog interpreter embedded in Forth. The interpreter 
is the basis of the expert system component of an astronaut interface for a series of Spacelab 
experiments. The expert system is described in Part I of this article [PAL87]. Here we describe our 
approach to the representational issues in designing the programming machinery needed to interpret 
Prolog programs: (1) the internal representation of Prolog objects and (2) the representation of the 
state of a Prolog computation. We also describe the Forth-Prolog interface we use to support the 
mixed language programming that is necessary to handle the real-time data acquisition and control 
tasks involved in the application. 

Our goal is to combine the advantages of Forth for real-time programming and the advantages 
of Prolog for symbolic reasoning. To take advantage of the large body of Prolog code we have 
developed for previous applications, we implemented the “core” Prolog system described in [CLO81] 
that is compatible with the widely available implementations. 


Introduction 


The text that follows briefly describes the implementation of the Prolog interpreter used in our 
application [PAL87]. The interpreter is fully Clocksin and Mellish compatible, using the standard 
Edinburgh syntax and providing the majority of the built-in predicates described in [CLO81] (some 
file 1/0 predicates are not implemented); however, it's a “tiny” Prolog in that it can fit in the 64K 
of the small model Forth. It is particularly suitable for Prolog applications that can leverage off the 
underlying Forth system, such as the knowledge-based control system described in {[PAL87]. The 
full source code for the interpreter (about 100 screens) is available from the Forth Interest Group 
as volume 5 of the Forth Model Library. 

The intent here is to cover briefly the main issues involved in implementing a Prolog interpreter 
in the context of one particular implementation in Forth. For this reason familiarity with Prolog is 
assumed. The first section describes the Forth data structures used to represent Prolog terms. The 
next three sections address memory allocation, how variables are bound and how Prolog procedures 
are invoked. The fourth section describes the implementation of built-in predicates and the interface 
between Prolog and Forth. The final section is a list of the built-in predicates that have been 
implemented. 


Representation of Terms 


Syntactically, there are two types of objects in Prolog —simple and complex objects. Constants 
and variables have no syntactic structure and are examples of simple (unstructured) objects. On the 
other hand, lists and predications have structure, and these are complex objects. Semantically, 
constants and variables are quite different from each other, and they need to have different internal 
representations. Moreover, for the sake of efficiency, internal representations of Prolog objects may 
incorporate other type distinctions (e.g., names and numbers may have separate internal 
representations even though they are both of “constant” type). 

The Prolog interpreter needs to be able to identify the type of a Prolog object. Common schemes 
for typing include using separate memory areas for different object types or incorporating a type 
(tag) field into an object pointer. The former is probably not a good choice for a straightforward 
Forth implementation where it is natural to have the names of objects and the objects themselves 
intermingle in the dictionary. The latter was not compatible with the use of 16-bit pointers in this 
implementation. Instead, the typing scheme used here has the interpreter get the type of an object 
not from the value of the pointer or the pointer itself, but from the object pointed to. The following 
text describes this scheme in detail. 
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system. 


International, a NASA contractor, in Houston, 
acquisition Systems, and expert systems. 


Primitive Terms: Constants, Variables and Numbers 


Constants and variables have name and link fields combined to form a header just like any Forth 
word, and these are the only Prolog objects with name fields (referred t 
Immediately following the header are an additional 5 fields comprising 3 vectors and 2 data fields. 


In order of increasing memory address the fields are: 


Bill Paloski has been building data acquisition and patient monitoring Systems since 1977. 
Before completing his doctorate in biomedical engineering at Rensselaer Polytechnic Institute in 
1982, he spent one year at the Oak Ridge National Laboratory and four years at the S. R. Powers 
Trauma Research Center in Albany, New York. After that he spent three years as an assistant 
professor at Boston University and then moved to his current position with KRUG International at 

the Johnson Space Center. In addition to real-time computing,. his research interests are in 
: pulmonary physiology, critical care monitoring, and physiological adaptation to weightlessness. 


Dr. Odette is international technology marketing manager at Applied Expert Systems, Inc. While 
at Applied Expert Systems, Dr. Odette has played a major role in designing and implementing the 
Apex development environment. His work has concentrated on computer language and compiler 
design. He has also worked on a wide range of technology marketing and delivery issues. Prior to 
joining Apex, Dr. Odette was a principal of Telphi Systems, Inc., a manufacturer of communications 
equipment. He was responsible for the design and implementation of data base management systems. 
Before founding Telphi, Dr. Odette did research at the Massachusetts Insti 
he received a Ph.D. in electrical engineering. He did early work in neural network modeling, where 
he developed advanced circuit models of neurons. His thesis work focused on perception in the visual 


tute of Technology where 


Al Krever majored in theater at Emerson College, Boston, Massachusetts, in the mid-1960s but 
then became interested in special purpose programming. After spending time with DEC and 
Honeywell in the late 19605 and throughout the 19705, he joined FORTAH, Inc., in 1980. Since then 
he has been designing custom applications and developing an international reputation as a Forth 
educator. His current interests are in applying AI to real-time monitoring and process control. 


Allison West received a B.S. in biomedical engineering from the University of lowa in 1981 and 
an M.S. in electrical science from the University of Michigan in 1984. She currently works for KRUG 
Texas. Her interests include real-time control, data 


Name Contents Use (object pointer/goal) 
variable-code field 0 object = variable/(not used). 
constant-code field The cfa of the Forth object = constant/ 

word RESOLVE.SINGLE. call function (no args). 
function-code field The cfa of the Forth object = functor/ 

word RESOLVE.FUN. call function. 
assertion field A pointer to the list of 

assertions for this functor. 
functor data field Functor data on precedence, 


position, associativity. 


For example, the representation of the constant térm mary looks like: 


H 


MARY 


2m O>m 


"VAR-CODE 
*CON-CODE 
"FUN-CODE 
* ASSERT'N 
OP-D AT A 


C'FUN-CODE | 
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o as named objects). 


The vector fields of a named object have a dual use: they are used to transfer control at run time 
when a named object is to be executed as a goal or is the main functor of a goal, and they also are 
used by the unifier to identify the type of an object. Typing works as follows. If a Pointer to a named 
object points to the variable-code field, then the object is treated as a logical variable. If the pointer 
points to the constant-code field, the object is treated as a constant. If the first element of a complex 
term points to the function-code field of some named object, then the complex term is interpreted 
as a function (predication or procedure) whose functor is the first element and whose arguments are 
the remaining elements of the complex term. 

. Numbers are the one exception to the typing scheme. The fact that an Object is a number is 
determined either directly from the pointer to it or from the memory location the pointer references. 
In the first case, if an object pointer points to an address less than 256, then the pointer is interpreted 
as the object, that is, a number. This approach allows a more compact representation of small 
numbers at the expense of run-time checking. In the second case, if the first memory word of the 
object points to the next memory word, then the contents of the next word is interpreted as the 


number. 


Complex Terms 

Complex terms are represented as chains of word (memory location) pairs. The first word of 
a pair points to an object; the second word of a pair points to the rest of the chain (for LISPers: all 
complex terms are lists—the word pairs constitute a CONS cell). A chain is terminated when the 
second word of a pair points to an object that is not an object chain. For example, lists are terminated 
with a pointer to the special object NIL, which is both a constant and the representation of the empty 
list. The list of terms [likes,marry,bill] is represented internally as: 


LIKES 
MARY 


. 


= 

“CON-CODE 
pe 2 i “VAR-CODE 
OBJECT ASSERT'NS FUN-CODE — 


: OP-D AT À 

RER Corspare JE onu 
OP-DATA 

"1 Te 


OP-D ATA 


TOBJECT 


À more concise representation of the structure of complex terms is a tree diagram whose nodes 
represent word pairs. Each right subtree of a node is a representation of the object pointed to by the 
first word of the pair. Each left subtree of a node is a representation of the object pointed to by the 
second word of the pair (i.e., the rest of the chain). In this notation, the tree representation of the 
list flikes,mary, bill] is: 
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[(ikesbill,mary) }, (ikes(mary,bill) :- likes(bill,mary) )] 
is stored as: 


LIKES 


"VAR-CODE 
"CON-CODE 


*FUN-CODE LIKES () 

* ASSERT'NS MARY LIKES () 
OP-DAT À BILL BILL 

‘ NIL MARY 


LIKES () 
BILL 


MARY 


NIL NIL 


Memory Usage 

This implementation intermingles the object-name and program spaces in the Forth dictionary 

and provides for no garbage collection of either names or program. À heap might be used to handle 

de-allocation of program space following the retraction of a clause, although this procedure would 

need to be handled with care because the retracted clause may still have a reference — as an untried 
alternative that may be required to resatisfy an earlier goal. 

In addition to the name and program spaces and the space allocated to the usual Forth return 

and data stacks, there are a stack that holds variable bindings (binding stack) and a separate stack 

‘for control information (goal stack). These stacks are made as large as possible because this is where 

the action is in a Prolog computation. In the version used in our application [PAL87] 32K bytes are 

allocated for each stack. 

The goal stack is used for saving goal frames during a computation (it corresponds to the return 
stack in Forth). Each goal frame has 6 fields (2 bytes each) that will be described later. One of these 
fields points into the binding stack and indicates the top of the binding stack relative to that goal 
frame (i.e., the set of bindings in effect when that goal frame was entered). {n this way variable 
bindings can be redone, if backtracking is necessary, simply by resetting the binding stack pointer. 
À new goal frame is allocated on successful resolution of a goal with the head of an assertion by 
advancing the goal stack pointer, copying the contents of the last goal frame and updating the fields. 


Variable Bindings 

Variables are bound as a result of unification during the resolution step. Each use of a variable 
name must be associated somehow with the call to the procedure that the variable appears in. We 
use goal frame indices for this purpose. Prior to unification, a pointer to the goal is associated with 
the value of the current index (INDEX.C) and a pointer to the head of the first clause in the 
assertions list is associated with the value of the next index (INDEX .N). 

During unification, all substructures of the goal and all substructures of the clause head are 
associated with the indices of their parent structures. Saving a variable binding consists of saving 
both the pointers and indices of the variable and the object it is bound to. The binding stack is where 
these variable bindings are stored, and each element of the stack is thus an 8-byte data structure 
(“var var.index obj obj.index). 

Variables are de-referenced by the Forth word 8BINDING, which just searches the binding 
stack for a given variable name-index pair and recurses if the variable is bound to yet another 
variable. 


Control 

A Prolog computation needs to keep track of both the clause it is executing and any alternative 
clauses (in case backtracking is necessary), of which subgoal to execute next on a successful exit 
from the current subgoal, and of all variable bindings in effect when the clause was called. This 
information constitutes the state of the computation. We represent the state of a computation by a 
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More general complex terms such as predicates (logical functions) are represented as chaïns in 
which the first object pointer points to the function-code field of a named object. Thus, the predicate 
likes(mary, bill) is represented internally as: 


RIRES 


MARY 


“CON-CODE | = 
VAR-CODE 
“FUN-CODE 
- "CON-CODE 


“OBJECT SASSERT'NS NC "VAR-CODE 
OP-D ATA *CON-CODE 
* ASSERT'NS 


Copoara] 


BILL 


“FUN-CODE 
© ASSERT'NS 
OP-DATA 


The tree representation of the predicate likes(mary,bill) is: 


LIKES () 
MARY 


BILL 
NIL 


where the pair of parentheses denotes that the object pointer points to the function-code field of the 
named object. 


Clauses 

First some terminology: for the clause À :- B,C,D., A is the head of the clause, :- is the neck, 
and B,C,D is the body of the clause. Clauses are represented internally as lists of terms, either 
simple or complex, where the first term in the list denotes the head of the clause. The remainder of 
the list is the body of the clause. Thus, the clause likes(mary,bill) :- likes(bill,mary). may be 
represented by the tree: 


LIKES () 
MARY 
BILL 


LIKES ()_ 
BILL 


MARY 
NIL NIL 


The main functor of a clause is the functor (function name) of the head of the clause. À list of all 
clauses with the same main functor is an assertions list (e.8., a list of all the clauses whose functor 
is likes). The assertions field of the main functor points to this list. Thus (using a mixed 
representation), the list of clauses 
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6-word structure (called a goal frame). Each such state corresponds to a goal in the computation. 
The fields of the goal frame are: 


Name Contents 

INDEX.N next index 

<ENV> environment pointer 
ASSERTIONS assertions list pointer 
GOALS goal list pointer 
INDEX. C current index 
REST.GOALS indirect goal list pointer 


The indices INDEX.N and INDEX.C (next index and current index respectively) are used in 
associating Variables with the frame they were bound in, as described in the previous section on 
variable bindings. The environment pointer <ENV> points into the binding stack and indicates the 
binding environment on entry into the frame so the environment can be restored on backtracking. 
The GOALS pointer points to the goals list, a subset of the subgoals of the parent goal frame of the 
current goal frame. The GOALS list is used to determine the next goal if the current one is 
successful. The REST.GOALS pointer points into the goal frame of the parent; specifically, it points 
at the GOALS field of the parent frame. REST.GOALS is used to determine the next goal on 
exhausting the GOALS list in the current frame. The ASSERTIONS pointer points to the assertions 
list at the clause that was most recently resolved successfully with the first goal in the goals list. This 
is used to keep track of the remaining alternatives. 

Given a goal frame (call it the parent frame) whose GOALS pointer points to some list of goals, 
the goals in the list are executed as follows. The first goal of the parent frame’s goal list is made the 
current goal, and a pointer to it is stored in the variable GOAL (GOAL is a global variable, not part 
of the goal frame). The assertions list for the current goal is obtained from the assertions field of 
the main functor of the goal, and an attempt is made to resolve the current goal with the heads of 
the clauses in the assertions list. If this attempt is successful for some assertion in the list, then a goal 
frame is created (allocated on the backtrack stack), saving a pointer to the current binding 
environment in <ENV> and a pointer to the GOALS field of the parent frame in the REST.GOALS 
field. À pointer into the assertions list at the successfully resolved clause is saved in the 
ASSERTIONS field. If the computation ever has to backtrack to this point, it can then pick up the 
process of resolving the current goal with the assertions list at the point where it left off. 


Assuming the resolution step is süccessful, the GOALS field of the new goal frame is filled with 
a pointer to the list of terms comprising the body of the clause just resolved (i.e., the body of the 
clause becomes the current goals list). If the body of the clause is empty (there are no subgoals), then 
the GOALS field of the current goal frame is filled with a pointer to the rest of the goals in the goals 
list of the parent frame. In other words, if there are no subgoals to consider, then the current goal 
(the first goal in the goal list of the parent frame) has been satisfied so the next step is to try and 
satisfy the remaining goals in the goal list of the parent frame. 

If the attempt to resolve the current goal with the head of a clause in the assertions list fails for 
all clauses in the list, then the computation backtracks to the most recent goal frame that has 
remaining alternative ways to satisfy its goal. The computation proceeds until all the goals in the 
initial list have been satisfied (success) or until all the ways to satisfy the first goal in the initial list 
have been exhausted (failure). 

The resolution and backtracking steps described are incorporated in the Forth words 
RESOLVE.FUN and RESOLVE.SINGLE. These words are the Prolog interpreter. 
RESOLVE.SINGLE is a special version of RESOLVE.FUN used to handle goals that have no 
arguments. The code addresses of these words are stored in the function-code and constant-code 
fields respectively of each named object (constants or variables). A Prolog procedure is called by 
placing a pointer to the appropriate field of a Prolog constant on the return stack and then exiting. 
The Forth inner interpreter then takes this return address as a pointer into the parameter field of some 
Forth word and so proceeds to execute either RESOLVE.FUN or RESOLVE.SINGLE, with the 
return stack containing a pointer that can be used to retrieve the assertions list. 


Forth Interface 

Built-in predicates are implemented in Forth, and use the predicate builtin as the interface 
between Prolog and Forth. builtin takes the name of a Forth word as its single argument and is 
distinguished from other predicates in that the function-code field of builtin does not contain the cfa 
of the word RESOLVE.FUN. Instead, control transfers directly to the Forth word that is the 


argument of the builtin call. This predicate is available for the user to access any of the underlying 
Forth system. 
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The only discipline required for user-defined built-ins is that the Forth word called drops the 
top of the return stack on entry and then exits by calling either $TRUE or $FALSE, which indicate, 
respectively, success or failure of the Prolog goal. Several Forth words are provided for parameter 
passing between Forth and Prolog. These words either retrieve the bindings of variabies in the clause 
head or unify terms with variables in the head. 


Invoking Prolog from Forth 


Starting Up _ 7. 

Prolog is invoked by the Forth word PROLOG. The backtrack and binding stacks are initialized, 
and the Prolog interpreter is given the goal prolog, which implements a top-level read-execute-print 
loop: 


prolog :- ‘repeat ?-,read(X),execute(X). 


execute(X) :- 
{call(X) ‘print answer”,tab(1),get0(W),Y\=59, 
nl,display(yes) ; 
ni,display(no) }, 
! fail. 


The procedure ‘repeat ?- is just a Prolog repeat which prints the ?- prompt. The procedure execute 
takes the input goal and calls it. If the goal fails, no is output, execute fails and the prompt is 
repeated. If the goal succeeds, ‘print answer” prints the variable bindings and then waits for a single 
character input. If the character is ; , we backtrack to call and try to satisfÿ the goal in another way. 
Otherwise yes is output, execute fails and the prompt is repeated. 

À read-assert loop is entered by calling user: 


user :- repeat,read(X),(X =stop;assertz(X),fail). 


For example, the input text block that follows adds three clauses to the data base between user and 
Stop. Following stop the user is back in the read-execute-print loop. 


?- user. 

likes(bob,mary). 
likes(mary,X) :- is__funny(X). 
is__funny(bob). 


stop. 
7. 


In contrast to most Prolog implementations, variables retain their names in the internal 
representation of clauses. The negative aspect of this feature is that variable names take up space 
in the dictionary. One interesting experiment would be to implement predicates that create and switch 
Forth vocabularies. This would permit different Prolog data bases to exist in different vocabularies. 
Because of Forth we can get “hierarchical multiple worlds” for free. 


Size, Speed and All That 
The entire interpreter, including the parser but exclusive of the stacks, takes up on the order of 
10K bytes. Running entirely in Forth (MicroMotion MasterForth on the Apple Macintosh), the 
interpreter will do about 22 LIPS (Logical Inferences Per Second, which effectively measure the 
procedure call rate) as timed with naive reverse. By recoding just the word @B INDING in assembler, 
there is a threefold increase in speed, and more efficiency can be gained by recoding other words 
in the inner loop of the Prolog interpreter. There is, thus, every indication that, with tuning, this 
implementation could be made competitive in speed with other Macintosh implementations of Prolog 
(see [PIE87] for a comparison of four Macintosh Prolog products). The version used in our 
application [PAL87] is written in polyFORTH running on a PC. No performance measurements 
have been made on the PC version. 

One of the inefficiencies in the space usage of this implementation comes from not reclaiming 
goal frames. This means that the backtrack stack contains a goal frame for every inference that has 
been made, thereby saving more than is absolutely necessary for backtracking. À goal frame could 
be reclaimed on return (i.e., when GOALS list has only one element) if its ASSERTIONS list has 
only one element (no more alternatives). 


Other Implementations 


Several other implementation of Prolog in Forth have been mentioned in the literature. Harris 
has described a Prolog interpreter that has been used in space-related work [HAR86]; however, few 
details of this implementation have been published. The most extensive treatment is by Townsend 
and Feucht [TOW86] who present a very good discussion of the Prolog interpreter mechanism. 


JED NAŸ déc 


21 


Their implementation of binding environments is similar to that described here, and both are derived 
from the simple schemes used in the primitive LISP implementations of Prolog [NIL84]. 

It should be noted that the Prolog syntax used in [TOW86] is nonstandard, and no mention is 
made of the implementation of the standard Prolog built-in predicates; however, note that writing 
the Prolog parser is a major effort, as is writing a complete set of built-ins. In our implementation 
there are an equal number of screens (approximately 30) devoted to the interpreter, the parser and 
the built-in predicates. 


Summary of Evaluable Predicates 

© The following is a list of the built-in predicates provided in this implementation, each with a 
brief description of its semantics. The majority of the Clocksin and Mellish predicates are included. 
Greater detail can be found in [CLOB81]. 


arg(N,T,A) The Nth argument of term T is A. 
asserta(C) Assert C as first clause. 
assertz(C) Assert C as last clause. 
atom(T) Term T is an atom. 
atomic(T) Term T is an atom on an integer. 
call(P) Execute the Prolog procedure call P. 
builtin(W) Execute the Forth word W. 
clause(P,Q) There is a clause with head P and body Q. 
consult(NO,N1) Extend program with clauses from screen NO thru NI. 
display(T) Display term T on terminal. 
fail Backtrack immediately. 
functor(T,F,N) The top functor of term T has name F, arity N. 
get(C) The next non-blank character input is C. 
get0(C) The next character input is C. 
halt Halt Prolog, exit to Forth. 
integer(T) Term T is an integer. 
Yis X Y is the value of the arithmetic expression X. 
listing(P) List the procedure(s) P. 
name(A,L) The name of the atom A is string L. 
nl Output a new line. 
nonvar(T) The term T is a non-variable. 
not(P) Goal P is not provable. 
op(P,T,A) Make atom A an operator of type T, precedence P. 
put(C) The next character output is C. 
read(T) Read term T. 
repeat Succeed repeatedly. 
retract(C) Erase the first clause of form C. 
skip(C) Skip input characters until after character C. 
tab(N) Output N spaces. 
trace Start tracing. 
true Succeed. 
untrace End tracing. 
var(T) Term T is a variable. 
write(T) Write the term T. 
! Cut any choices taken in the current procedure. 
X <Y As numbers, X is less than Y. 
X=<Y As numbers, X is less than or equal to Y. 
X>Y As numbers, X is greater than Y. 
X>=Y As numbers, X is greater than or equal to Y. 
X=Y Terms X and Y are unified. 
X \=Y Terms X and YŸ are not unified. 
=. L The functor and args of term T comprise the list L. 
X==Y The terms X and Y are strictly identical. 
X \==Y The terms X and YŸ are not strictiy identical. 
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The following is a list of the Clocksin and Mellish predicates that have not been implemented, 
each with a brief description of its semantics. 


debugging List all current spy points. 

nodebug Remove all current spy points. 
nospy P Remove spy point from predicate P. 
see(X) Open file X for input. 

seeing(X) File X is open for input. 

seen Close file X for input. 

‘ spy P Set a spy point on predicate P. 
tell(X) Open file X for output. 
telling(X) File X is open for output. 
told Close file X for output. 
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faut pointer sur Le premier 
de La pite de donnees. Ensuite, 


Le signe # est un separateur. Enfin, La Lettre X indique 
qu'il faut supprimer La 


donnee. Trois Lettres sont 


tex: DROP) 
Cex: SWAP ROT) 
(ex: OVER PICK) 


tre precedee d'un parametre indiquant Le 


traiter. 


Exemple: 


signifiera qu'il faudra copier 3 elements a partir du 5eme 
nombre depose sur La pile de donnees: 


Pour Les principaux operateurs de pile, voici Les equiva- 
Lents en notation NHX N#K et NP: 


DUP alias 1#K 
swap alias 2#P 
20ROP alias 242X 
ROT alias 34P 


2SWAP alias 442P 


pICK alias n#k 


prend 


un element sur La pile pour 


uvre, Dans l'etat actuel de L'interpre- 
n souhaite appliquer cette technique, 


n1 n1) 
1PUSH 


ELSE 1#K THEN : IMMEDIATE 


ion de 


consisté a redefinir Les operateurs comme suit: 


END-CODE 


L'interpreteur interne nous con- 


5 mots en cas d'echec de recherche dans 


Le dictionnaire. Exemple: La recherche de 6#3P dans Le dic- 
tionnaire echoue; passage par 
xique de 6#3P similaire a NUMBER mais appliquee aux manipu- 


une routine d'analyse synta- 


elle formule. 


passablement complexe, Car il faut 
interpretation qu'en compilation. 


ee 


28.10.68 
MANTE 0: 
Lele, on 


mante n0 avec Le mot suivant: 


-STAT) 
AH XOR 
MOV 
ENO-CODE 
STAT 


09h30 
avec un 81I0S compatible IBM et 
peut tester L'etat de L'impri- 


2 # AH MOV 0 # OX MOV 


ELSE O0 # AX MOV 


ne delivre un flag vrai que si L'impri- 


et prete 


a imprimer. 


a ———————— 


28.10.88 


LECTURE DE n CARACTERES D'UN 
a La position courante du pointeur de fichier; celui-ci est 
deplace en avant de Len” octets pour poursuivre une Lecture 


09h33 
FICHIER: La Lecture s'effectue 


: LIT-DEAUT € <fichier) -- ) 


) 2005-ERR ?R 


RG (GET) 


affiche 


Teni N°48- dec #8 


7005-ERR 


pAD SWAP TYPE R) (CLOSE) ; 


Les 10 premiers caracteres de 


a —— 


SECRETAIRE 28.10.88 09h35 
COMPTER LES FICHIERS FORTH DANS LE repertoire courant: 
: COMBIEN-DE-FICHIERS ( masque) -- ) 
0 PATHWAY 0 (SEARCHD) 
IF BEGIN + (SEARCH) NOT UNTEL 
THEN , ; 


COMBIEN-DE -F ICHIERS B:\FORTH\*.FTH affiche Le nombre de 
fichiers repondant au masque #.FTH' dans Le repertoire 
FORTH de B: 

SECRETAIRE 28.10.88 09h37 

EFFACEMENT SELECTIFS DE FICHIERS A PARtir de TURBO-Farth: 
voici un mot permettant d'effacer dans Le repertoire cou- 
rant un groupe de fichiers (ce que n'autorise pas DEL) avec 
selection au clavier des fichiers a effacer: 

: ERA { émasque> -- ) 

0 PATHWAY 0 CSEARCHO) 

JF BEGIN CR .NAME ." Effacer ? O/N 
KEY UPC OUP EMIT ASCII 0 = 
IF OMA 30 + 65 8005 ?D0S-ERR 1+ 
THEN (SEARCH) NOT UNTIL 

THEN CR . ." fichiers effaces" ; 


ERA *.* affiche successivement Les fichiers qu'il propose 
d'effacer puis affiche Le nombre total de fichier effaces. 
SECRETAIRE 28.10.88 09h48 
FONCTION VIEW EN TURBO-FORTH. Voici un exemple d'utilisa- 
tion conjointe des mots OPEN HANDLE GETLINE .LINE et CLOSE 
pour definir un mot VIEW Listant un fichier à partir de La 
rencontre d'un mot quelconque. La syntaxe en est: 

VIEW cfichier> <mot?> 
et comme La premiere OCCUrENCE d'un mot Forth dans un fi- 
chier est generalement 5 definition Chors commentaires), 
on utilisera VIEW pour retrouver Le source d'un mot puis 
voir son utilisation dans Le reste du fichier. La commande 
VIEW <fichier> seule est equivatente a LIST fichier): 


: VIEW € tfichierl.ext1) «<mot> -- ) 
ECHO @ \ conserve etat de ECHO 
HANDLE @ \ conserve HANOLE courant 
ECHO OFF \ pas d' ECHO pour commencer 
OPEN \ ouvre Le fichier 
BL WORD DROP \ isole mot a chercher du flot actuel 
HANDLE 1 1 attribue ticket couran au fichier 
BEGIN \ commence à Lire fichier: 
GETLINE \ prend une Ligne 
ECHO @ 0= \ ECHO encore OFF ? 
IF HERE COUNT À si oui: chaine du mot a chercher 
BUFFER COUNT \ chaine chargee dans Le tampon 
SEARCH À rech. mot dans tampon 
NIP \ position mot inutile 
IF LINE 1 si trauve:.affiche La Ligne 
ECHO ON 1 et on continue en ECHO ON 
THEN \ si pas trouve: an continue comme ca 
THEN À si non: continue 5an3 chercher Le mot 
EoF? @ STOP? OR \ jusqu'a fin 
\ fichier ou stop: au clavier 
UNTIL A c'est fini: 
CLOSE \ on ferme Le fichier 
HANDLE ! \ on retablit Le HANDLE 
ECHO |; À on retablit ECHO 
SECRETAIRE 28.10.88 09h56 
CHANGER L'EDITEUR DE TURBO-Forth: TURBO-Forth permet d'uti- 
Liser votre editeur habituel en remplacement de celui 
fourni sur La disquette contenant Le module 1. Si votre 
editeur n'accepte pas plus d’un parametre (celui du fichier 
a editer), il faudra retrouver L'erreur en VOUS aidant du 
message de localisation delivre par L'interpreteur. Si 
votre editeur ac cepte de se positionner au Lancement sur 
une Ligne, ou mieux Sur Une Ligne et une colonne, selon une 
syntaxe differente, il est preferable de redefinir te mot 
EDIT de facon appropriee en construisant dans La variable 
chaine COMMANDS La chaine de parametres pour votre editeur 
apres une erreur Le mot (WHERE) charge dans COMMANDS Le 
nom du fichier incrimine): 
; EDIT € -- ) 
DECIMAL COMMANDS NIP 
1F “Le=" COMMANOS APPENDS 
IN-LINE @ €.) COMMAND$ APPENDS$ 
" {C=" COMMANDS RAPPENDS 
IN-CHAR @ €.) COMMAND$ RPPENDS 
ELSE CR ." Fichier a editer:" 
COMMANDS INPUTS 
THEN “ PROGRAM EDT.EXE" $EXECUTE ; 


externe EDT.EXE 


acceptant une Syntaxe de lancement: 
EOT CfichierJC/LexxxJ3C/Czyyy 
Ligne et La colonne du curseur où debuter L’edition 


et yyy pour La 


28.10,88 12h17 

Forthiens atarimaniaques: Le tele- 
place pour Le ST. Allez donc faire un 
SRM#ATR et recopiez Le Listing de La partie recep- 
en Forth mais en GFA Che 


Benne nouvelle 
chargement 5e met en 


oui).... Quelques fichiers 
La troupe attend encore quelques jours pour montrer 
Les fichiers JEDI seront bien 
partie, et vous pourrez telecharger indifferemment du source 


ou de L'executable avec un debit de 3Ko/mn. 


Le bout de son nez. 


pondre à TICK , il est en effet possible de commander 
en indiquant son numero de VISA card et 
Attention, aux USA on ne plaisante pas 
La carte bleue et Le mode de paie- 
personnellement deja 
States par ce moyen: 
dans ma boite 


l'expiration date... 
escroqueries à 


commande quetdues safts directement aux 
un coup de fil Le mardi soir, Le paquet etait 
Le vendredi matin. Et pas de mauvaise surprise, Le double du 
bordereau VISA "TOLL ORDER" en 


guise de signature (commande telephonique)... 


accompagne Le paquet, avec 


03:11.88 10h10 
pouvoir faire afficher 
suffit d'uti- 


FICHIER BATCH: 
une Ligne blanche par un programme 
Liser La commande echo immediatement suivie d'un point: 


ECHO TITRE DU PROGRAMME 


ECHO. SUITE OU PROGRAMME 
ATTENTION: ne fonctionne que soŸMhs-dos version 3. et sui- 
vantes. Mais il y a mieux que ECHO.'. IL suffit de taper 
ECHO <ALt 255). F1:87] T4 


a Là 


03:11.88,,10h13 

dans un programme batch vous fai- 
aüûtre programme ‘.bà 
cution du programme appele La main est rendu a ms-dos et non 
au programme appelant. Pour remedier à ce probleme, 
faire preceder L'appel du programme par La commande: command 
11c. exemple: DEMO.BAT 


SOUS PROGRAMME BATCH. si 
tes appel 83 un 


COMMAND /C AFFICHE (S/PR0G) 
REM SUITE DU PROGRAMME DEMO 


03.11.68 10h15 

CONTROLE EXTERNE OÙ PC: pour passer Les commandes 

Lisateur minitel, il suffit 

savoir Le configurer ou 

dart v23 (ou un minitel retournable) et de taper sous dos: 
MODE COM2:1200,E,7,1 


Pour redonner Le contole du pc 3 l'utilisateur, 
Le minitelliste tape CTTY et <CR> ou touche SHIFT 
été trouvé sur 3614 MI 
ne fonctionne pastii 


CROB mais apparement 


03.11.86 10h41 

LA GERANCE DE SAM VIENT DE RAJOUTER 21 PROGRAMMES EN PASCAL 
DANS LE TELECHARGEMENT. ATTENTION, LORS DE LA SELECTION D'UN 
PROGRAMME À TELECHARGER, UN BUG OBLIGE UNE DOUBLE SAISIE. 


CHOIX FORTH, 
CHOIX RSINIT (PROG No7), TAPER: 


CECI SEULEMENT POUR LES PROGS EN PREMIERE PAGE. 
NORMAL POUR LES PROGS EN SECONDE PAGE. CE BUG N’EST PAS DE 


03.11.88 16h58 

'CHERCHE ROUTINES EN FORTH 83 DE MATH EN BCD AVEC AU MOINS 15 
CHIFFRES SIGNIFICATIFS AINSI QUE LA CONVERSION D'UNE CHAINE 
ALPHANUMERIQUE EN NOMBRE BCD ET INVERSEMENT. 
COMMENT MANIPULER PLUS DE DEUX FI-CHIERS DE 
DONNEES EN TURBO FORTH NOTAMMENT DES FICHIERS DIRECTS 


A L'AT-TENTION 
DU SECRETAIRE: 


06.11.88 15h48 


Reponse 3 JMCFORTH: TF83 admet L'ouverture simultanee de 
nombreux fichiers: pour cela il faut L 

1) placer dans CONFIG.SYS une Ligne FILES=14 

2) redimensionner La constante FILES 14 is FILES 

14 permet ici d'ouvrir 10 fichiers car Les tickets O » 4 
sont reserves aux peripheriques standards. 14 tampons sont 
alors accessibles pour MS-005 et pour FORTH (adresse donnee 
par BUFFER). Les tampons Forth sont de 256 cars. Pour le 
travail en acces direct, il peut etre necessaire d'en defi- 
nir de plus grands en intra ou extra segment. (Precisez 
votre probleme) 


FORTH7 06.11.68 16h29 
\ Copies de fichiers avec SHELL 
30 STRING COPYING 
: COPY OC Carg1) <arg2> -- ) 
“ COPY * COPYING #1 
BL WORD COUNT COPYING APPEND$ 
“__* COPYING APPENDS 
BL WORD COUNT COPYING APPENOS 
* > NUL" COPYING APPENDS 
COPYING SHELL ; 
COPY s'utilise exactement comme sous MS-005: 
COPY A:#.FTH C:\FORTH 
L'ajout ?’> NUL' est une astuce pour supprimer L'affichage 
des fichiers par COPY treutilisable dans vos .BAT) : 
GUILLAUMAUD PH. 07.11.88 08h07 
BONJOUR, MODIFICATION DE L'ENVIRONNEMENT QU DOS DANS UN 
FICHIER BATCH. EX.: 
SET OLDPATH=%PATHY 
SET PATH=C:\TURBO\FORTH; 
REM ... suite du programme 
SET PATH=%0OLODPATHY 
SET OLDPATH= 


LA SYNTAXE SET Var.=$VarE%" NE MARCHE QUE DANS UN BATCH. 
CECI PERMET D'AFFECTER A Var LE CONTENU DE VarE. 


GUILLAUMAUD PH. 10.11.86 08h14 

Bonjour, Dans La serie des TRUCS du DOS: recherche d'un 
fichier quelque soit 5a position sur Le disque; voici te 
Programme TROUVE.BAT: 


CHKOSK /V } FIND "41" 
Le symbole “!* s'obtient par appui sur ALT+124. Ceci à 
L'avantage de ne pas necessiter d'utilitaire .., 
FORTH7 11.11.88 14h42 
##X# TELECHARGEMENT ASCII SAMYJEDI #44 
Vous etes tellement fauche QUE VOUS n'avez pas commande 
LCECOM a JEDI. Pour telecharger nos fichiers ASCII, y'a un 
moyen bestialement simple sous ms-dos: branchez votre cable 
RS232-MTL recupere d'un soft quelconque de telechargement 
puis initialisez en mode minitel: 

MODE COM1: 1200,E,7,1 
CMODE.EXE est sur votre disk System) procedez a La demande 
de telechargement jusqu'au message ’tapez ENVOI’ puis avant 
de faire cet ENVOI sur Le MNIL faites 

COPY COM1: «<fichier) 
Reprenez un peu «fichier» a L'editeur c'est pas plus 
complique que cal 


FORTH7 23.11.88 19h03 
Eh! C'est mon dernier message qui vous La coupe? Faites un 
peu Le BREAK: voici comment gerer Le Break en Turbo-Forth: 
\ Vectorisation de Ctrl-Break sur WARM 
ONLY FORTH DEFINITIONS ALSO HEX 
CODE BREAK € -- ) 1 paint d’arret 

STI 20 # AL MOV 20 # AL OUT 

0103 4) JMP END-CODE 
CODE SETBREAK © -- ) | vectorise INTs 

? BREAK >BODY # DX MOV 

2523 # AX MOV 21 INT 1 # DL MOV 

3301 # AX MOV 27 INT NEXT END-CODE 
SETBRERK FORGET SETBREAK DECIMAL 
Ctrl-C et Break ne sortent plus de TF: tres utile pour 
stopper un INCLUDE qui n'en finit pas... 


F32 28.11.88 10h08 

L'AUTEUR ANONYME DE CE BEL ARTICLE SUR LA GESTION DE FENE- 
TRES PARU DANS LE DERNIER NUMERO DE JEDI EST INVITE A CON- 
TACTER F32; SON INTERET POUR LES ARBRES ET GRAPHES EST DE 
BON AUGURE... 


A PARAITRE PROCHAINEMENT DANS JEDI: STRUCTURE DU PROCESSEUR 
F32 ET MODE DE FABRICATION OÙ JEU D'INSTRUCTIONS. PORTEZ- 
VOUS BIEN ! : 


JEN N°4 de 59 


25 


—————— 


SECRETAIRE 02.12.88 16h10 
FINI LES GREVES DE LA POSTE...? SI VOUS DOUTEZ DE LA DILI- 
GENCE DE VOTRE FACTEUR, OPTEZ POUR LA SOLUTION TELECOPIEUR. 
MAINTENANT, POUR 8500 FR HT AYEZ LE VOTRE. CONTACT: 

STE SHINING 24 CITE TREVISE 75009 PARIS 

TEL: 42.47.05.81 OU  TELECOPIE: 42.47.16.89 
A CE PRIX LA... ON SERAIT TENTE, NON? 


SECRETAIRE 05.12.88 09h36 

MESSAGES DANS LE FORUM: Je rappelle que Le FORUM est a votre 
disposition pour poser toutes Les questions concernant La 
programmation et L'utilisation du Langage FORTH. Nous repon- 
drons a vos questions dans Les meilleurs delais. 


D'autre part, si vous avez des petits trucs à communiquer, 
n'hesitez pas a en faire profiter autrui, car vous serez 
bien contents quand Vvous-meme profiterez des astuces 
d'autrui. 


Enfin, si vous redigez un message àä usage confidentiel, vous 
pouvez Le transmettre a plusieurs correspondants: apres 
composition dt validation, indiquez Le numero de chaque 
correspondant+ENVOI. 


— 


PATRICKS 08.12.88 16h40 
QUI PEUT ME DIRE COMMENT TELECHARGER AVEC LE LOGICIEL SPTEL 
EN UTILISANT KERMIT MERCI. 


—— 


SECRETAIRE 08.12.88 21h39 

REPONSE A PATRICKS: LE LOGICIEL SPTEL NOUS EST INCONNU. MAIS 
POUR TELECHARGER LES PROGS DE SAM*JEDI, IL SUFFIT DE 
DISPOSER D'UN PROGRAMME ASSURANT UNE !CAPTURE’ EN MODE 
ASCII, CECI POUR LES SOFTS FORTH ET PROLOG. POUR LES AUTRES, 
EQUIPEZ VOUS DE TELECHAR ET QUI EST PROPOSE EN OEBUT DE 
CONNEXION CCOMMANDE KERMIT=KERMIT ET TELECHAR). A+ 


F32 11.12.88 00h07 


LA SPEC PRELIMINAIRE EST SOUS PRESSE; SORTIE DANS LE 
PROCHAIN JEDI. IL Y AURA DESCRIPTION DE LA STRUCTURE, UN 
(PETIT) NOYAU DU (GRRRAND) JEU D'INST. 
AFFUTEZ VOS MENINGES POUR DONNER AU 
S'EXERCER. RESTRICTIONS CONNUES: 

-64K ADRESSES SUR CHAQUE PILE 


MODELE DE QUOI 


SECRETAIRE 12.12.88 09h20 
COMMENT LANCER DEBUG.COM depuis TF83: TURBO-Forth dispose 
bien d’un decompilateur, mais pas d’un desassembleur. Mais 
avec ce petit truc, vous allez pouvoir Lancer DEBUG.COM 
(fourni avec La disquette MSDOS de votre systeme) puis 
revenir sous TURBO-Forth: 

60 STRING A$ 80 STRING B$ 

“ AS PASS PROGRAM DEBUG.COM " B$ s! 

: CODE-DEBUG B$ $EXECUTE ; 
Maintenant, tapez CODE-DEBUG pour Lancer Le desassembleur. 
12.12.88 09h22 
DECODAGE DES TOUCHES: pour retoucher Le contenu de 
KEYBFR.COM, il faut connaitre non seulement Le code ASCII 
d'une touche, mais aussi son SCAN-CODE. C'est ce que fait ce 
petit proogramme: , 
HEX CO0E SCAN CODE 


SECRETAIRE 


0 # AH MOV 16 INT  1PUSH END-CODE 
DECIMAL 

: DECODE € ---) è 
BEGIN CR ." APPUI SUR UNE TOUCHE :" 


SCAN CODE 256 /MOD 
CR ." SCAN-CODE: " . 
DUP CR .* CODE: " . OUP 32 ) 
IF CR: ;” ASCII: "“ EMIT 
ELSE DROP THEN 
CR CR ." AUTRE TEST CO/N) ?" KEY 


UPC ASCII O € UNTIL ; 


SECRETAIRE 12.12.88 10h51 

TURBO-FORTH EN ALLEMAND DISPONIBLE: GRACE A LA TENACITE ET 
LA PATIENCE DE NOTRE CORRESPONDANT MUNICHOIS FRED BEHRINGER, 
NOUS DIFFUSONS MAINTENANT LE MODULE 1 DE TURBO-FORTH DANS LA 
LANGUE DE GOETHE. 

POUR RAPPEL, LE MODULE 1 EXISTE EN: 

- FRANCAIS 

- ANGLAIS 

- ALLEMAND 
MAIS NOUS SOMMES TOUJOURS A LA RECHERCHE D'UN TRADUCTEUR 
BENEVOLE POUR UNE VERSION ESPAGNOLE. OUI, CERTES, L'ANGLAIS 
EST PEUT ETRE UNIVERSEL, MAIS FAISONS COMME LES AMERICAINS 


Ten NUL. des 8 
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CHEZ QUI ON PARLE PLUS SOUVENT EN ITALFRANPORTUGANOL QU'EN 
PATOIS SHEKSPIRIEN.... L 


13.12.88 09h19 


SECRETAIRE 
CODE TOUCHE CLAVIER SUR PORT A DU 8255: Pour rendre 
independant un ’KEY' de l'appui sur SHIFT, ÆCTRL ou ALT, 


voici un KEY modifie qui va delivrer Le code physique d'une 
touche clavier: 

hex 

sskKey-ports Ç =5-: 0) 

key drop 060 pc@ ; decimal 
L'execution de KEY-PORT depose 1 sur La 
appuie sur ESC, 2 quand on appuie sur 1 ou 
vous soyez en QWERTY 
n'importe comment. 


pile quand on 
&, et ceci que 
ou AZERTY ou votre clavier reaffecte 


F32 13.12.88 13h05 

JE FAIS DES RECHERCHES SUR LA STRUCTURE DU DICTIONNAIRE, ET 
IL ME FAUDRAIT CONNAITRE EN DETAIL LE FONCTIONNEMENT OU 
DECOMPILATEUR POUR EN BIDOUILLER UN SPECIAL. J'AI FAIT SEE 
GEE ET SEE (SEE) MAIS CA ME LAISSE UN PEU SEC. POUVEZ- VOUS 
M'ECLAIRER? JE SUIS SUR F83 CPC CET OUI...) MAIS JE NE 
PENSE PAS QUE CA GENE. MERCI 

REMARQUEZ QUE LE DICTIONNAIRE EST FAIT COMME UN ARBRE, JE 


VOUDRAIS FAIRE APPARAITRE LA STRUCTURE DE FACON SIMPLE 5 


x 


BYG INFO 
BYG INFORMATIQUE TEL : 61 26 44 36 

NOUS VOUDRIONS NOUS PROCURER LES SOURCES POURRIEZ VOUS NOUS 
INDIQUER LA MARCHE A 

SUIVRE SVP . 


SECRETAIRE 14.12.88 14h00 
REPONSE A BYG INFO: APRES PRECISIONS DEMANDEES PAR TEL, JE 
MET MA REPONSE SUR SAM*JEDI, A SAVOIR: 

- LE SOURCE ASCII ET LA DOC KERMIT SERONT DIFFUSES SUR 
TELECHARGEMENT DANS LA NOUVELLE RUBRIQUE 'C'. EGALEMENT DES 
NOUVEAUTES EN TF83, dBASE ET C. 


: NOUVEAU-NEU-NEW-NOUVERU-NEU-NEW-NOUVEAU : 
TURBO-Forth module 1 est disponible main- 
tenant en anglais et en allemand. Le module 
6 est disponible au prix de 37,00 Fr. 


Tarifs - Preise - Price: 


Francs 

Ra] esse Ed sé Ge | .…...Module 1: 37,00 

EA PAU HER .....Module 2 37,00 

ps | JO 455 Module 377371; 00 

FA SPAOERE Re …...Module 4 37,00 

A St Te .....Module 5 37,00 

Fi PRES 13372 .....Module 6 37,00 
: Only in French - Nur in Franzüsich 

....... 2 modules au choix 70,00 

........3 modules au choix 100,00 

....... 4 modules au choix 130,00 

....... 5 modules au chaix 160,00 

........... Modules 1 à 6 190,00! 


Livré en disquette(s), formats: 
ES ........ 51/4 sans supplément 


3'1/2 supplément 20,00 


14.12.88 11h32 on LA 


